(start of main body of HDI (Hard Disk Install)) 



( set up the copy buHer } 

{ set up all the dialog pointers } 



BEGIN 
Mainlniti 
InitBufler; 
InitfiyDialogsi 

SetCursop (watch); 
AppRefID := CurResFile; 
result ;= HDOpen; 

(check -for fatal errors) 

SetCursorCarrow); 

CheckErr(re5ult)| 



IF (result = MWorksFnd) THEN 
BEGIN 

ID i log := BetNewDialoQ(MUDilo9, NIL, P0IN7ER(-1)); 
HodalDialo9(NIL, iterahit); 
DisposDialoQdDilog); ( reraove dialog ) 






{ saue ptr to app's resource file ) 

( Open the driuer, add driues to drive queue, try nsount ) 



{ if direct-start disk, ask hw to proceed ) 



{ Initialize button pressed ) 



CASE iterahit OF 
1; 
BEGIN 

DoInstalKErasDilog, result, BlankDisk); ( erase entire drive ) 
IF (result = UserCancel) THEN 
ByeBye; 



2: 



ET^D; 



BEGIN 

DoMyinstall; 
ET^D; 



3; 



{ Replace HacUorks button pressed ) 



{ Cancel button pressed ) 



ByeBye; 
END; (of CASE) 
mo (of IF THEN) 

ELSE IF (result = LisaFnd) THEN 
BEGIN 

LDilog := 6etNewDialo9(LisaDilo9, NIL, POINTER(-l)); 
HodalDialo9(NIL, itenthit); 
DisposDialo9(LDilo9); 



{ Lisa OS forraat, ask about sharing ) 
f^ER(-l)); 

{ repye dialog ) 



:ASE iterahit OF 



{ Share button pressed ) 



BEGIN 

result != HDMount; 

CheckErr(pe5u1t); 

IF (result = AllOK) THEN 



{I9Apr85} 
{19Apr85) 
{i9Apr85) 
{19Apr85) 

{i9Apr85} 
{19Apr85) 
•(19Apr85) 
{I9AprB5) 
{19AprB5) 
{19AprB5) 
(19Apr85} 

{19AprS5) 
{19Apr85} 
{19Apr85) 
{19Apr85} 

{19Apr85) 
(IfAprSS) 
{i9Apr85} 
{19Apr85} 



{ Try to do mount of drive ) 

{ Check for fatal errors ) 

{ Hac side OK, say "already a shared disk"... ) 

DoInstalKSharDilog, result, Lisadisk) 
ELSE IF (result < 0) THEN { Hac side bad, say "unreadable, do you want to format''.. ) 

BEGIN 

DoInstalKBadSDilogjresult, Lisadisk); 
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IF (result = UserCancel) THEN 

ByeBye 
ET^Dj 



END! 



{ Erase All button pressed } 
BEGIN 

DoInstalKErasDilog, result, BlanKDisk); { erase entire drive } 
IF (result = UserCancel) THB^ 



ByeBye J 



END; 

3; 

ByeBye; 
END; ioi CASE) 
Er-ID (of IF THEN) 

ELSE IF (result = All OK) THEN 

DOInstalKHacDiloQ, result, MacDisK) 

ELSE 
BEGIN 

DoInstalHBadMDilog, result, BlanKDisK); 
IF (result = UserCancel) THEN 

ByeBye; 
ET^D; 

CASE (result) OF 

AllOK: 
BEGIN 

result f= UrtBootBlks; 
IskonlnSysRes; 
SetCursor(arPow); 

itenihit ;= NoteAlert(LstAlert, NIL); 
Bm 

MUorksFnd: 
BEGIN 
END; 

UserCancel s 

IskonlnSysRes; 

OTHERyiSE 
BEGIN 
Cytnum(result, resstrng); 



Cancel button pressed ) 



paraiBtext(resstrn9, ", '', '' 



); 



itemhit := StopAlertdnitAlert, NIL) 
END; 
Bid\ ioi CASE) 



HideCursor; 

END. 



{ Mac disk on-line ) 

{ check \i reinitialize wanted > 

{ damaged or not initialized } 

{ erase entire drive } 



{ write boot blocks to hard disk ) 

{ Bake sure hard disk icons are in sysres } 

{ notify about ruoving system folder ) 
{ MacWorks has been replaced - all done ) 

{ make sure disk icons are in sysres } 



{ convert error to string } 

{ set error id for alert display) 

{ Display error ) 



{19Apr85) 
{19Apr85} 
{i9Apr85) 



( bail out point) 

{ return to the Finder . , .) 
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-ROGRhH HOI; < HardDisK install program -- ■from Rich Castro's Hard Disk Install 4 Hacyorks Install 1 
; ««** HacUorks Install documentation **»*) 

I Mac application -for installing MacUorks to a hard disk. Tht steps are as ^ollws. 
i) Eject application disk and ask ^or HacUorks diskette. 

2) Verify inserted disk as liacUorks and read into buffer. 

3) Copy 400K to first 800 blocks of hard disk (actually offset by 8 blocks). 

4) Copy Hcnitor Profile op Uidget bootblocks fron> MUI/68K to first 8 blocks on hard disk. 

5) Set the hard disk driver offset for HacUorks (= 810) 

6) Quit ) 



**** List-O-Hinus-O-Matic-O-Things-To-Oo »»*» } 



25-Oct- 


-84 


26-0ct~84 


29-Oct- 


-84 


30-Oct- 


■84 


31-Qct- 


-84 


5-Nov' 


-84 


6-r^oM- 


-34 


7-Hou- 


■84 


7-fim- 


-84 


8-Nov 


-84 



^«** Modification history (MUInstall) «*** } 

New Today frore MacUorks Copy application ) 

Resource editing, Profile bootblk = 4K } 

More editing, tag buffer setup, etc ) 

New control calls, error fixing } 

Cosmetic Hello/Goodbye dialogs } 

Last dialog display fixup, Uidget bootblock setup } 

Teminates if running off of the hard disk, luore Uidget stuff, unmounts hard 

disk at end of process ) 

Unmount before writing to hard disk, as unmount flushes, needs directory 3 

Multiple fixes to port setting, also dialog fix ) 

Dispose of generic dialog before adios, force sony on-line before end ) 

{ «**« Hard Disk Install documentation »*»» ) 

■ Application routine to enable initial install of Hard disk driyer and ) 

{ mount/initialize of hard disks for Lisa system running MacUorks. ) 

{ } 

{ written by Rich Castro - 3/9/84 } 



**«« Modification history (HDInstall) »««» ) 

3/29/84 - add support for new icon, cursor changes ) 

4/2/84 - change icnS id for system id } 

4/9/84 - add support for in it device error } 

5/3/84 - add support for Lisa./Mac disk sharing ) 

5/8/84 - add writing of icon to system resource file ) 

5/10/84 - add display of error code for open errors ) 

5/l!/84 - add ability to reinitialize a Mac disk } 

5/14/84 - add alert for moying system folder } 

5/!d/84 - add disk type parameter to HDInstall interface ) 

5/25/84 - add internal hard disk icon ) 

6/1/84 - remove dialog about auto- install - always do it ) 

6/4/84 - add new dialogs } 

d/2i/84 - change hard disk id to I, change icon id's also ) 

6/29/84 - add write boot blocks kluge if install successful ) 

7/18/84 - eliminate separate dialog file > 



»**» Joint Modification History *««« ) 

y-Nov-84 If doing Mill nstall, set error before call to HDFormat ) 
12-f'lov-84 Alert/dialog cleanup ) 
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( 17-NOV-84 Cancel out o^ HUInstall, forraat before Wlnstall, HDNanse added, cleanup } 

{ 18-r'lov-84 Set res file back to application after IsIconlnSysRes call ) 

{ 20-f'loy-84 Passes disk type to HDForraat (again) ) 

{ 12-Dec-84 Don't coerce UserCancel err to A110K, add UserCancel end case handling ) 

{ i9-Apr-85 Add option to update MacUorks only) 

C ***« Conspiler directives «*»« ) 

\W4-} { no integer overflow checking } 

{■$H+} { auto Mac-style code generation } 

CfR-} ( range checking off ) 

{•$X-} { no autfflnatic stack expansion code } 

{ID-} { symbols off } 

■ly-l C turn off Lisa libraries ) 

I'SES 

MU -priam-fnac/obi-MeraTypes ) MeiuTypes, 

■M -priara-mac/obj -QuickDraw ) QuickDraw, 

{$U -pr ians-mac/ob J -Oslntf } Oslntf, 

■MU -priam-niac/obj-toollntf } Toollntf, 

{$y -priani-raac/obj-Packlntf ) Packlntfj 

LABEL 

99\ {for bailing out of prograre) 



C «*M HacWorks Install Constants *»*» ) 

{ -'DlOB^ rsrc ID's ) 

HyDlglD =281; ( generic dialog template, one string & one button } 

{ Equates for Hello dialog responses ) 

Uftstail = ! } 
"Cancel = 2: 

{ Equates for Adios dialog reponse ) 

;0K =1; 

{ 'SIR ' rsrc ID's for the text inside the button ) 

OKbtnlD = 281-, 
Canc8]btnI0 = 282; 

{ '3TR#' rsrc ID for the string list containing all the dialog text } 

MyStrlD =281; 

{Locdtion in strHandle for strings, frofs ID's passed to DisplayMsg. 
The disk dialogs prompt the user for a disk and have a cancel button) 

3?tO!cM>l = 1; {'insert source HacWorks diskette') 

(the wait dialogs tell the user scasething's in progress) 
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DoingRead = 2| 



.'The stop dialogs say soraething couldn't be done, with an 
Cantyrite = 4; 



button) 



CantEject 


= 5| 


Notrt4Di5!< 


= M 


Cantlnit 


= 7{ 


CantRead 


= 8; 


CantControl 


= 9\ 



i Control call values ) 



SetlagCode = S; 
SetOffsetCode = 9| 
InitDryrCode = 30', 



{ Set tag bufler ptp control call value } 
{ Set first mac block offset value ) 
{ Initialize the hard disk driver ) 



Hiscellaneous equates ) 



StatysCcde 


= 8; 


NumBootBlks 


= 8; 


UstMonBlk 


= 310; 


HDdrvrRetnunj 


= -2; 


SonyDrvrRe-fnura 


= -5; 


HDURefnuFB 


= 4! 


3ony*v'RefnuFB 


=; l5 



{ Value of disk driver status request paraiR ) 

{ Number of boot blocks to write out 3 

{ Number of blocks on hard disk reserved for MacUorks 

{ Hard disk driver ID = 1 (refnunt = NOT 1 = -2) ) 

{ Sony disk driver ID = 4 (refnura = NOT 4 = -5) ) 

{ Hard disk driver default voluiie number (paraport) } 

{ Sony disk driver volume number (internal drive) ) 



**** Hard Disk Install Constants »*»» ) 



AilOK 


= 0; 


OsepCancel 


= 1; 


OpenErr 


= 2; 


RssrcErr- 


= 3? 


HoDrvErr 


= 4; 


HtlisaErr 


= 5; 


HoSpace 


= i>f 


NtRevCErr 


- 7. 


OnHDiskErr 


= 8; 


ffidisKErr 


= 9; 


QnlineErr 


= -55; 


itijorksFnd 


= -9!; 


■^imeErr 


= -95; 


RespErr 


= -96\ 


PrtyErr 


= -97; 


HardErr 


= -98; 


LJsaFnd 


= -99 i 


NtlisaAlepi 


: = 128; 


InstAlert 


= 129; 


NoDskAlert 


= 130; 


LstAlert 


= 132; 


SpcAlert 


= 133; 


OnHDiskAler 


't = 134; 


NtRevCAIerl 


[ = 135; 


?ft#ioteAleri 


t = 136; 



{ No error } 

{ User cancelled out of an operation ) 

{ Error opening the hard disk driver??? 3 

{ Error getting/setting resource 3 

{ No hard disk attached 3 

{ User running program on a Mac ) 

{ Disk was Lisa OS format, but not partitioned 3 

{ Lisa not booted frcra Rev C or later MacUorks 3 

{ User running prograi off of the hard disk 3 

{ Bogus error for call to HDFormat 3 



{ Macworks hard disk attached 3 



{ Lisa OS hard disk attached 3 
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HacDilog 


= 


m\ 


BactlDilog 


= 


141; 


■lameDiloQ 


= 


142; 


InitOiloQ 


= 


143; 


LisaDiloo 


s 


145; 


SharDi log 


= 


146? 


BadSDilog 


= 


147; 


ErasDilog 


= 


148; 


Hi;^Dil09 ' 


s 


149; 


Initio 


= 


4; 


DrurlD 


= 


1; 


Prolcon 


= 


-16351; 


Intrnlkon 


= 


-16350; 



(NOTE". The only true importance of the following 3 equates is that they are passed to HDFomat, 
the assembly routine that forrsats (initializes) the hard disk. HDFopreat passes the parameter 
dffl<in one raore leMel to the hard disk driyer. H the parameter = 0, the disk driver resets to 
uolurse size to be the total size of the yolunie (sets the logical to physical offset tc 0), 
otherwise the offset is left alone; the disk is then initialized from block (logical) to 
the last block of the volume. Since the only two types of disk that we support are 'Shared'' 
and HacUorks only (disk partitioned between MacWorks (810 blks) and Macintosh), we would only 
zero the entire disk if the disk was going fr»ft damaged/unformat ted/Lisa format to MacUorks 
only (macintosh disk w/MacWorks image in first 810 blocks). The others all test 
to non-zero by the driver, thus leaving the offset unchanged (which has been previously set 
up by the call to HDOpen, which called the initialization routine of the hard disk driver). 
The offset could also be set prior to writing out the directory by De^Install} 



BlankDisk = 0; { initialize the entire disk as a Macintosh volume } 
LisaDisk =1; { initialize logical disk, skip part formatted for Lisa OS ) 
MacDisk = 2; { initialize logical disk, skip part formatted for MacWorks ) 



WatchID = 4; 



(system ID for watch cursor) 



TYPE 

TdiskMode 
TmsgType 



= (FirstHalf, LastHalf, BothHalf, TwoBlks); 
= (WaitMsg, StopMsg, OiskMsg); 



{ data read/write modes ) 

{ different flavors of my dialogs 



•m 



irra MacUorks Install Variables *»»» ) 



bigGuy 

bootBlkPtr 

bootDiskOut 

utnCaricel 

btnOK 

copyBuffer 

+lr5tDia!0Q 

itemHit 

nivBtnHdl 

fflyDigPtr 

avHOPBlk 

nr/HDPBptr 

ns>t!OPeik 



BOOLE^; 

Ptr; 

BOOLE^^; 

StringHandle; 

StringHandle; 

Ptr; 

BOOLEAN; 

INTEGER; 

Control Handle; 

DialogPtr; 

PararaBlockRec; 

ParraBlkPtr; 

PararaBlockRec; 

ParmBlkPtr; 



TRUE => IMeg Lisa, 400K copy buffer, do it in one pass ] 

Pointer to boot block code ) 

TRUE => Boot Sony ejected ) 

Handle to 'CanceT button text ) 

Handle to 'Or button text ) 

Pointer to copy buffer ) 

TRUE => show the dialog window and draw it in Oi5pla)^Eg } 

generic dialog response ) 

'cancer button control handle ) 

generic dialog pointer > 

hard disk I/O parameter block } 

ptr to hard disk I/O paraneter block ) 

micro disk I/O parameter block ) 

ptr to micro disk I/O parameter block 3 
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rsxTextHdl 
statu sPBptr 
teropDlgPtr 
m\ch 



Handle; 
ParmBlkPtr; 
DialogPtr; 
Cursor; 



{ handle to statText in dialog box } 
{ for status calls } 
{ Hello dialoQ utr ) 



»*»* Hard Disk Install Variables »*»« ) 



appRenO 


! irfTEGER; 


result 


: ItffEGER; 


ID ! log 


: DialogPtr; 


'^esstrng 


! Str255; 



PROCEDURE MacsBug; INLINE $A9FF| 

PROCEDURE HacsBugPrint (theHsg: str255); INLINE $ABFF; 

; ♦*«« Hac'york's Install External Procedures »»«*) 



PROCEDURE ProfileBoot; 
PROCEDURE yjdgetBoot; 



EXTERNAL; { start ol Profile boot code : 
EXTERNAL; { start of Widget boot code ) 



{ **«* Hard Disk Install External Procedures ****) 

RfCTION HDOpen ; INTEGER; EXTERNAL 

FltCTI»^ HDHount : irfTEGER; EXTERNAL 

FIWCTIQN HDForniat (disKType: INTEGER) ; INTEGER; EXTER^^L 

FlfCTION HDT^ame ; IffTEGER; EXTERTttL 

FUNCTION UrtBootBlks : INTEGER; EXTERNAL 



(forward declarations of all procedures) 
{ »*«» HacUorks Install Procedures »»*« ) 



Fll^CTICP CiickedBtn (VAR theEvent! EventRecord) 
PROCEDURE DisplayMsg (theMsg: INTEGER; theType; 



PROCEDURE 

PROCEDURE 

PROCEDURE 

i^ROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

!^iJNCTION 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 

PROCEDURE 



DoMliJInstall; 

EjectDisRette; 

ForceOffline; 

ForceReroount; 

GetnyDisK; 

HDControl (theCode; INTEGER; theValue: 

HDStatus (VAR theStatus; ParnsBlkPtr); 

Ini tBuffer ; 

InitMyDialogs; 

Hainlnit; 

HUDisk ; BOOLEAN; 

ReadBootBlks; 

ReadDiskette (reaitiode: TdiskMode); 

Terminate (why: INTEGER); 

WriteBootBlocks; 

WriteToDisk (writeMode; TdiskMode); 



; BOOLEAN; FORWARD; 
TffisgType; doExit: BOOLEAN); 

FOI^^RD; 

fORUARD; 

FORWARD; 

FORWARD; 

FORWARD; 

FORWARD; 
Ptr; abort; BOOLEAN); FORWARD; 

FORWARD; 

FORWARD; 

FORWARD; 

FORWARD; 

FORWARD; 

FORWARD; 

FORWARD; 

FORWARD; 

FORWARD; 

FORWARD; 



**** Hard Disk Install Procedures **»* ) 
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PROCEDORE ByeBye; FORWARD; 

PROCEDURE CheckErr (error: INTEGER); FORWARD; 

PROCEDURE CutHuns (nuns: INTEGER; VAR str: 5tr255); FORI^RD; 

PROCEDURE Deinstall (DiloglDs irfTEGER; VAR error; INTEGER; drivetype; INTEGER); 

FORl^RD; 
PROCEDURE IsIconlnSysRes; FORWARD; 

f *iM Start 0^ MacWorks Install Procedures **»* ) 

FliNCTION ClickedBtn (VAR theEuent; EventRecord) j BOOLEAN; 
(called when there's a raouse-dcwn event and we have a 'insert a disk' dialog box 
LP. Returns TRUE only i^ user really selects the 'Cancel' button in the box) 



reyPort 
sauePort 
tenipCtrl 
tempUindow 



IMTEOER; 

Gra^Ptr; 

GrafPtr; 

ControlHandle; 

WindowPtr; 



BEGIN 

Cl-ckedBtn := FALSE; 

; := F!ncft4!ndow(theEvent. where, terspWindow); ( which window was the mouse dwn in? J 
IF aenipWindow = UindowPtr(niyDl9Ptr)) THEN 

BEGIN {in the dialog window, check ^or button hit) 

GetPortCsaMePort); 

SetPort(rayDlgPtr); { make ay dialog the window ^or globtoloc conyersion } 

GlobalToLocal ( theEvent .where) ; 

! ;= FindControHtheEyent.where, tenipUindow, terapCtrl); 

!F (tenspCtrl = rayBtnHdl) THB*I { user reouse-downed in the 'Cancel' button ) 

IF (TrackControHteiipCtrl, theEvent. where, NIL) Q) THEN {user selected cancel) 
ClickedBtn ;= TRUE; 

Er# 

ELSE 

SysBeepdO); 

SetPort'saMePort); { and restore the state oi thePort } 

B#| (of Fl^C ClickedBtn) 

PROCEDURE DisplayMsg CtheHsg; INTEGER; theType; TmsgType; doExit: BOOLEAN); 
(display the dialog in my string list speci-fied by <theMsg>) 



^R 




ill Done 


5 BOOLEAN; 


dUFHIiV 


; BOOLE^; 


iTivEyefit 


1 EventRecord; 


tempStr 


; Str255; 



BEGIN 

{get the string specified by (theMsg) out o-f the string list) 
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Get!ndStrinQ(tenjpStr, HyStrlD, theHsg); 

(f-emo'je the button -froni the dialog box) 
HideControiCrayBtnHdl); 

SetlTextdiyTextHdl, tempStr)! 

IF (f JrstDialog) THEN 
BEGIN 

Shoui^ i ndowdiyDl gPtr ) | 
DrawCMalQg(fByDlQPtr)f 
lirstDialog 5= FALSE; 
END; 

ail Done := FALSE; 

[^S£ theType OF 
UaitMsg; 

all Done ;= TRUE; 
StooHsa: 

BEGIN 

SetCTitle^nsyBtnHdl, btnOK^')| 

ShowControUniyBtnHdD; 

END; 
OiskHsgj 

8E6IN 

SetCTitle(fByBtnHd1, btnCancel'*); 

Shos^ControHrayEtnHdl); 

END; 
B^D; (of CASE) 

UHILE (NOT all Done) DO 
BEGIN 

SystefiTask; 

dufwity := 8etOSEvent(everyEvent, niyEvent)| 
CASE reyEvent.what OF 
DisREvt: 

allDone ;= TRUE; 
HouseDown; 

IF ClicKedBtn(rayEvent) THEN 
IF (doExit) THEN 

SyeBye 
ELSE 

all Done ;= TRUEj 
END; {Qi CASE} 
END; {o4 UHILE) 

Bn'D; {Qi PROC DisplayHsg} 

PROCEDURE DiMilnstall; 

I Do all the stu-f-f to install the nacworks image on the hard disk } 

BEGIN 

teraHit := NoteAlert(H4noteA1ert, NIL); { tell user what's happening } 
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ForceOtiLine; 
bootDiskOut := TRUE; 



{ make sony offline volume, eject it } 
{ jumping on thin ice ... } 



yetfl/lDisKi { pronipt lor hW disk to copy (op bail out) 

HDControKSetOfisetCode, Ptr(O), TRUE); ( set disk oHset to ) 

{ IMeg Lisa, do it in one pass } 

{ get 400K3 



{19Apr85} 



IF (bigCuy) THEN 

BEGIN 

ReadDisketteCBothHaH); 

ynte~oD!5k<BothHaH)j 

END 
ELSE 

BEGIN 

ReadDi5kette(FirstHaH) 

WriteToDiskCFirstHaH); 

R8adDi5kette(La5tHaH); 

UriteToDisk^LastHaH); 

Ef-iD; 



yriteBootSlocks 



HideWindowdByDlgPtp); 
Di5posDt3log(n(yDlgPtr)| 

PorceReroount; 

EiNO; (of PROC DoMWInstain 



( we read 4OOK5 so write it all out ) 



{ 5i2K Lisa, do it in two passes ) 

{ get 200K } 

{ write out the first 200K ) 
{ suck up second half of sony } 
{ write out the second 200K ) 



{ write out the bootblocks to the hard disk, set offset ) 

{ hide the windm } 

{ get rid of generic dialog box ) 

{ get the Mac startup diskette back ) 



PROCEDURE EjectDiskettei 
(Hard eject a Sony diskette) 

BEGIN 

IF CPBEject<n»yMDPBptr, FALSE) 0) THEN 
TeminateCCantEject) J 

B^D; {of PROC EjectDiskette) 

PROCEDURE ForceOffline; 
{Force sony off-l ine) 

yAR 

err •• OSErr; 

BEGIN 

?rr ;= PB0ffLine(n!yt1DPBptr, FALSE); 
EjectDiskette; 

eC| (of PROC ForceOffline) 
PROCEDURE ForceRersount; 
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(Force the user to insert the boot sony} 



grr 5 OSErr; 
iakeHdl : Handle j 

SE6IN 

(askinq tor the resource fran an off-line disk forces it on-line) 



EjectDiskette; 

taKeHdl := GetResourceCRlCHS 0); 

bootDisKDut ;= FALSE; 

END; <of PROC ForceRemount) 



{ get rid of HacUorks diskette ) 
{ Boot Sony back in ) 



PROCEDURE GetMUDisk; 

Cask I'M user for the original (source) MacWorks diskette) 

UAR 

goodDisk : BOOLEAN; 

BEGIN 

goodDisk := FALSE; 
REPEAT 

DsspiayH5g(8etOldMU, DiskMsg, TRUE); 
IF (NOT MUDisk) THEN 

BEGIN (not a macworks diskette, so eject and let user bail out) 

EjectDiskette; 

Di5BUyH5g(NotMWDi5k, StopHsg, FALSE); 

ELSE 

goodDisK ;= TRUE; 
IMIL goodDisk; 

e^D; {of PROC GetMUDisk) 

PROCEDURE HDControl (theCode; MEGERj theValue; Ptr; abort: BOOLEAN); 
■do control calls to the hard disk) 



fPE 



takePBrec 


= RECORD 






tefspl 


. Ptr; 




ten!p2 


INTEGER; 




tef!iD3 


INTEGER; 




terap4 


Ptr; 




ioCornpletion 


ProcPtr; 




terap6 


INTEGER; 




ii^areePtr 


Ptr: 




I cMRefNum 


INTEGER; 




ioRefNunt 


. INTEGER; 




csCode 


INTEGER; 




csParam 


Ptr; 




END; (of RECORD) 





[Date 5.1i3r/35; File -«2#2-hd/source.TE)(T} 



Page 9 



iT-r : iHTEGER; 

ni/CCFB!k ! TfakePBrecj 
m;CPBptr ; ParmSlkPtr; 

BEGIN 

nyCCPBDtr := ParfTiB!kPtr(3niyCCP81i()| 

WITH reyCCPBlk DO 
BESIN 

loCcMpletton := nll^ 
lO^'iarBePtr ;= nil; 
c^.%fNum ;= HDMRefnuro; 
:oRe-fNurs ;= HDdryrRe-fnurn; 
csCode := theCode; 
csPar-am ;= theValue; 
END; 

?rr := PBContrDKmyCCPBptr, FALSE); 
IF (err <> 0) THEN 
IF (abort) THEN 

BEGIN 

CytNuni<err, resStrng); 

paramtextCresStrng, •'•','•', •'■'); { set error id for dialog display) 

Terminate^CantControl ) j 

END', 

ET^D: (of PROC HDControl) 

PROCEDURE HDSUtus <VAR theStatus: parntBlkPtr); 
(do status call to hard disk driyer) 

err : INTEGER | 

BEGIN 

WITH theStatus* DO 
BEGIN 

loCompletion != nil} 

■oRe+nufis != HDdrvpRefnura; { hard disk driver refnura 3 
iovRe-fnurri := HDUrefnure; ( hard disk default Molume number ) 
encode := StatusCodej 
Bi'D; 

err ;= PBStatu5< theStatus, FALSE)', 
IF (err <) 0) THEN 

BEGIN 

CwtHum'.erri resStrng); 

FarareTextCresStrng, '' ' , ■'■'/■') ; 

^ermirsateCCantContpol) 5 
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B^i iQi PROC HDStatus) 

PROCEDURE InitBu-fier: 

iailocatf 200Ky400K buffer, set biqGuy flag if IMeg Lisa) 

hoMr^uch : Size; 

-BEGIN 

btgSyy := FALSE; 

'•ri/fiMuch 5= 409400; (try for 400K} 

copyByffer := NewPtr(howfluch); 

IF (copyBuffer <> NIL) THEN 

8E6IN 

sigGuy := TRUE; 

EXITdnitBuffer); 

END; 
howHuch ;= 204800; (try for 200K3 

cop/Buffer := HewPtr(houlluch); 
if (copyBuffer = NIL) THEN 

Ternifnate<CaritIriit); 

END; {Qf PROC InitBuffer) 

PROCEDURE InitHyDialogs; 

'. INTEGER; 
tempRect s Rect; 
niyType i INTEGER; 

BEGIN 

fsyDlgPtr ;= GetNewDia]o9(MyD]gID, NIL, Po!nter(-l)); 
IF (FRyDIgPtr = NIL) THEN 
Terrr!iftate(CantIfiit); 

GetDIterBimyDlgPtr, 1, reyType, HandleCrsyBtnHdl), tenipReci); 

IF (fBvBtrsHdl = NIL) THEN 
TermirtateCCantlnit); 

GetDIteraCmyDlgPtr, 2, rayType, rayTextHdl, terapRect); 

IF (myTextHdl = NIL) THEN 
'srfn!nate<CantInit); 

btnOK := Get3tring<0KbtnID); 
btnCancel := 6etString(Cance]btnID)| 

firstDialog ;= TRUE; { for Displaytisg stuff } 

IouidDiaiOQ<HyDigID); { guarantee the dialog is in meraory, since we eject the diskette } 
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Bm (OF PROC InitMyDialogs) 

PROCEDURE Ma inlniti 

'.set up 'Jarious raac ntanagers) 



InitSraffithePopt); 

ipitCursori 

InitFontsi 

Initlienus; 

TEInitj 

InitDia]0Q5(HIL)| 

j^atch := SetCursor(WatchlD)**; {gpt the busy cursor) 



FlushEuents'leveryEvent, 0)f 
nsyDlgPtr := NIL; 
myBtnHdl := NIL; 



{clear out event queue) 

(in case we bomb out in initialization) 



bootDiskOut != FALSE; 

(set up hard disk & sonv disk par^ieter blocks) 

myHDPBptr := toyHDPBIk; 
WITH myHDPBlk DO 
BEGIN 



ic^^ePtr 


;= NIL; 


toRefNum 


:= HDdrvrRefnum; 


ioMRefNuns 


:= HDyRefnuni; 


? opQ^lode 


1= 1; 


soPerrossn 


1=0; 


END; 




myHDPBptr := 


ansyMDPBIk; 


WITH niyMDPBlk DO 


BEGIN 




'oNaraePtr 


;= NIL; 


soRefNuni 


;= SonyDpvpRetnurB; 


iDyRe4Nuns 


;= Sony'^/Relnunt; 


! oPosMode 


;= 1; 


ioPeriTissn 


5=0; 


END; 





{ hard disk driver refnum ) 

{ default volume for hard disk } 

{ absolute positioning ) 

{ read/write permission ) 



{ Sony driver re-fnuni ) 

{ default drive number for internal sony ) 

{ absolute positioning ) 

{ read/write permission ) 



END; (ol PROC Hainlnit) 

FUNCTION MUDisk : BOOLEAN; 

(returns TRUE if the first two blocks on the diskette look like Monitor format) 



UAR 



^^rstWord : INTEGER; 
tempPtr : 'INTEGER; 



JEOIN 
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ReadDiskettedwoBlks); 

IncM check out the IK in CopyBuf-fer to decide i^ it's monitor •format} 

teipPtr j= PointerCORDCcopyBuHer)),' 

tirstyord ;= tenspPtr"; { get the -first word 3 

IF (tirstUord = $4^FC) THEN { Monitor disk first word ) 

ft^JDisk ;= TRUE 
ELSE 

rWDssk := FALSE; 

e^D", Col FUrC MUDisk) 

PROCEDURE ReadDiskette (readMode: TdiskMode); 

Cr-fad irm the sony, according to the roode. If mode = TwoBlks & there was an 
error during the read, assume that the user inserted an uninitialized diskette, 
and stuff in the first byte of (copyBuffer), which will force a re-formatting 
Of the diskette) 

VAR 

bIkCnt 1 Longlnt? 
blkLoc 5 Longlnt; 

SE81H 

BlkLoc != 0; 
blKCnt != 400 1 
!^SE readMode OF 
MfstHalf: 

BEGIN END; 
lastHaH: 

blkLoc ;= 400 j 
SothHaH: 

bIkCnt ;= 806; 
TwoSUts: 

bIKCnt := 2; 
END; (of CASE) 

WITH myMDPBlk DO 
3E6IN 

loBuffer ;= copyBuffer; 

ioVRetnura := SonyMRefnum; ( reset it for safety ) 
loReqCount := blkCnt * 512; { how much data to read ) 
ioPosOffset '.- blkLoc » 512; { where to read it from ) 
END; 

IF 'rea(f1ode <) TwoBlks) THEN 

Displ3;/HsQ<Doin9Read, UaitMsg, FALSE); (tell user we're reading the diskette) 

SetCursorCwatch); 

IF <PBRead(myMDPBptr, FALSE) 0) THEN 
IF CreatHode <> TwoBlks) THEN 

Terminate(CaritRead) 
ELSE 
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{set ^irst word to zero, force foriat for H^ diskette] 



copyBuffer" ;= 0; 
SetCursorCarrow); 
END; (of PRQC ReadDiskette) 



PROCEDURE Tern inate (why: INTEGER); 
I'sll user why, exit) 

BEGIN 



3etCur5or(aprow); 



{ reset the cursor } 



IF (fiiyDlgPtr <> NIL) ^D (rayBtnHdl <> NIL) THEN 

D.isplayMsgCwhy, StopHsg^ TRUE) 
ELSE 

Bye Bye 5 

B-IDj Cot PROC Terminate} 

PROCEDURE yriteBootBlocksj 

{write out the 8 blocks of boot code/volume map info) 



TYPE 



TByte = -128. .127; 

TIntPtr = MNTEGERi 

TDisKType = (ProfileDisk, UidgetDisk); 



{ one byte of storage ) 



v^R 



TStatijsInfo 


= RECORD 






ioStuff 


ARRAY CO.. 27] OF TByte; 




error 


INTEGER; 




snfol 


INTEGER; 




!nfo2 


INTEGER; 




OQEL 


ARRAY [0..333 OF Tbyte; 




realSize 


IffTEGER; 




H.JDDRB 


TByte; 




diskType 


TByte; 




restof it 


ARRAY [0..20} OF TByte; 




END; {of RE 


XORD) 


codePtr 


! TlntPtr; 


{ po 


fakePtr 


; Longlnt; 

; INTEGER; 




hDiskinfo 


! TStatusInfc 


n 


tagSuf 


: ARRAY [0..: 


1651 OF INTEGER; { 53 


tagBufPtr- 


5 Ptr; 




theDiskType 


: TDiskType; 





{ all the ioCorapletion, etc ParMBIocR stuff } 



{ pointer to block of code } 



{ 532 bytes of header + data = 266 words } 



BEGIN 

{find out what type of disk is attached) 
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stetusPBptr I- aiiDisklnfo; 

HDStatusUtatusPBptr); { find out what disk we're talking to } 

IF (hDJsklnto.disktype 0) THEN C must be a widget } 

theDisKType := UidgetDisk 
ELSE 

theDisklype ;= ProfileDiski 

{New ccmes sane weird stuff. At boot tiffie., the Lisa boot Roni reads in the first 532 
bytes on the disk (block 0). If the first 12 bytes are not all equal to $A (deciraal iC), 
It signals a 'Bad Bootblocks' error, otherwise it juraps to the 2l5t byte of the loaded 
block. The block is loaded in with the 2ist byte at location $20000. 
This works fine with a Profile, as when we write out the first block we make 
a control call to the hard disk driuer telling it to use our tag buffer ptr (rather 
than the default, which points to Mac low mensory). We fill our tag buffer with 
all lA's, and off we go. The widget, on the other hand, writes the header out at the 
END of each 532 byte block. The boot Rom still expects the first 20 bytes to be the 
header, however, so we play the trick of having the first block of our boot code be 
20 $A's. then setting the tag buffer pointer to point to the 1st 20 bytes of the next 
block boot code. Thus we create a Profile-style block for loading, then reset all 
the pointers so that the rest of the blocks get written out correctly for a Widget/Profile. 
In actuality, only the first 12 bytes of the 20 byte header get written out correctly; next 
follws 7 bytes of $00 and 1 byte of checksunt, The Widget block code, hwever, is far short 
of filling the block and is padded by an ascii string to be exactly 512, thus not writing 
out the last eight bytes isn't really a problent} 

(create s tag buffer of 20 $A^'s as the header of the first block) 



FOR I := 9 TO 9 DO 
tagBufEij != -21846; 



{ set to hex lAAAA } 



IF (theDlskType = ProfileDisk) THEN 

SESIN 

tagBufPtr := ItagBufEOl; 

bootBlkPtr := 3Prof ileBoot; 

END 
ELSE 

BEGIN 

bootBlkPtr ;= 3tag8uf[Q3; 

codePtr := TIntPtr(3!;iidQetBoot)5 

FOR I ;= 10 TO 265 DO 
BEGIN 
tagbufli] := codePtr*; 



{ normal tag buffer ptr ) 

{ normal ptr to start of boot code > 



{ first 20 bytes here are $A's } 

{ point it to first byte of block code ) 

{ copy 512 bytes (256 words) of code ) 

{ stuff a word into the buffer ) 



codePtr ;= TIntPtr(ORD<codePtr) + 2)| ( skip to next word ) 

END? 
tagBufPtr ;= Ptr(0RD(3UidgetBoot) + 512); { Just to point it somewhere ) 
e^D; 

HOControUSetTagCode, tagBufPtr, TRUE); { make the hard disk driver use my tag buffer } 



UITH myHDPBlk DO 
BEGIN 

loBuffer ;= bootBlkPtr; 
ioReqCount != 512; 
ioFosOffset := 0; 



{ write boot block } 
{ write at beginning ) 
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£ND; 

•now write out the first boot block) 
IF <Pi4r!te<niyHDPBptrj FALSE) <> 0) THEN 
Terfsiflate<CantWpite); 

(reset the taq buf-fer ptr to nil) 
HDControKSetfaQCode, nil, TRUE); 

{set up -for wpitinq out rest of boot blocks) 
iF (theDlsKType = ProtileDisK) THEN 

bootBlkPtr 5= Ptr(0RD(bootB1kPtr) + 512) ( set ptr to block 1 } 
ELSE 

bootBlkPtr ;= tagBufPtr; { set ptr to block 1 ) 

yiTH fBvHDPBlk DO 
8EGIN 

(oBuffer := bootBlkPtr | 

:oReqCount := (nuraBootBlks - 1) » 512| C write rest of boot blocks ) 
'oPosOlfset != 512; { write at block 1 } 

END; 

mm write out the rest of the boot blocks) 
IF (PBWrite<nixHDPBptr, FALSE) 0) THEN 
Terfainate(CantWrite); 

(Done writing to disk, so set up the correct offset) 

lakePtr ;= LastMonBlk * 65536; { reake longint w/high word = value of offset ) 

HDControKSetOffsetCode, Ptr(fakePtr), TRUE); { set offset of hard disk ) 

ETC; (of PROC UrittBootBlocks) 

PROCEDURE yriteToDisk (writeMode: TdiskMode); 

{yrite out the data froii copyBuffer to the hard disk. At this time, we haven't 
y?t written out the bcotblocks, so the offset is still (absolute positioning)) 

UhR 

bikCnt 5 Longint; (nuaber of 512 byte blocks to write) 
blKLoc J Longint; (which block # to start writing to) 

BEGIN 

bIKLoc ;= NumBootBlks; { skip boot blks, volume n»ap blk ) 

islkCnt != 400; 

C^SE writeMode OF 
FirstHalf: 

BEGIN END; 
LastHalfj 

bli^Loc ;= 400 + NurrtBootBlks; 
ScthHalf: 

bIRCnt J- 800; 
END; (of CASE) 

WITH niyHDPBlk DO 
BEGIN 
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{ transfer fron the data buffer ) 
{ how reuch data to write ) 
{ where to write to ) 



{ tell user we're writing ) 



ioBufFer ;= copyButlerj 
ioReqCount := bIkCnt * 512; 
loPosOffset := blkloc » 512; 
END; 

DisplayMsgCDoingWrite, WaltMsg, FALSE); 

SetCur5or<watch); 

IF (Pa.lrite(niyHDP8ptr, FALSE) 0) THB^ 
TerfflinateCCantWrJte); 

3etCur5or(arrow); 

END; (of PROC UrlteToDisk) 

{ »»*« Start of Hard Disk Install Procedures **«» ) 

Procedure Bye Bye; 



BEGIN 

5etCursor(watch); 

!F (rayDloPtr <) nil) THBi 
BEGIN 



deU i;ndc»4(myDlgPtr); 
sposDialogCrsyDlgPtr) 

END; 



{ Set busy indicator ) 



IF (bootDiskOut) THEN 
BEGIN 

EJectDtskette; 
ForceRemount; 

GOTO 99; 
END; 



{ in case any MacWorks diskette is in the driue ) 



{ Jump to end of program ) 



Procedure CgtNuni (nure: INTEGER; VAR str; str255); 

BEGIN 
if nurs < then begin 

CMtnuniC-nurfijStr); 

str :;= concatC-^str); 

end 
else if num )= 10 then begin 

CMtnuni(nurR div lOyStr); 

str 1= concat<str/ '); 

strllength'lstr)] := chr((nuni fsod 10) + ord('O')); 

end 
else beqin 

str s= — ; 

str[13 ;= chr(nuffl ♦ ordCOO); 
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end; 
Bib', 

Procedure CheckErr (error i INTEGER); 

iAor- errors we know about, display an alert & bail out, else assume benign and ignore) 

BEGIN 

CASE error OF 

HtLisaErr: 

itsrahit := StopAlertCNtLisaAlert, NIL); C Signal that this app can only be run on Lisa ) 

NtRevCErrj 

itensHit ;= StopAlert(NtRevCAlert, nil); (Signal that this app only runs under Rey C or later MacWorksl 

OnHDiskErr; 

it?iiHit ;= StopAlert(OnHOiskAlert, nil); { Signal that this app can't run on the hard disk ) 

OpenErr, ResrcErr, TiraeErr, RespErr, PrtyErr, HardErr; { Open, resource or control call -failed ) 
BEGIN 

cytnumierror.resstrng); { convert error to string ) 

paraiBtext(re55trng,' •',",■''); { set error id for alert display) 
itenjhit •.= StopAlert(InitAlert, NIL) i Signal error for debug purposes ) 
END; 



NoDryErr J 

iterahit := StopAlert<NoDskAlert, nil); 

MoSpace! 

i terabit := StopAlert(SpcAlert, nil); 

OTHERyiSE 

EXITCCheckErr); 

END; ioi CASE) 
ByeBve; 
END; ioi PROC CheckErr) 



{ No disk found ) 
( Display error ) 

{ No blocks available ) 
{ Display error ) 



PROCEDURE Dolnstall (diloglD; INTE8ER; UAR error; INTE6ER; drivetypei INTEGER); 

{ Assunes dialog presented has two buttons, first is Cancel type, second is OK type ) 

v'AR 

theDilog 5 DialogPtr; 

begin 
theDilog ;= GetNewDialog<di1ogID, NIL, P01NTER<-1)); 
?1odalDialQg(NIL,itenihit): 
-j \ sposD I al og( theD i 1 og) ; 
■^ (iterahit = 2) THEN 

BE6IN 

srror ;= HDFornjat(driveType); ( volunse comes back uncounted ) 
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IF (error <> 0) THEN 

EXITCDoinstail); 
IF (driveType <> LisaDisk) THEN 

DoTtUnstaiil; 
SeiCur5cr<watch); 
error := HW^araej 
SetCuPSorUrrw); 
CheckErrCerror) 

error ;= UserCancelj 



{ return error code } 

{ if not shared, blast M4 iraage on } 

{ name the hard disk & write out the directory } 

{ check for fatal error } 

{ user hit Cancel button ) 



END; { Of PROC Deinstall ) 

PROCEDURE IslconlnSysResj 

■[ check H icon already in system resource filei if not, install } 

VAR 



theNarae3 


Str255| 


theNaii84 


Btr255; 


theTyoeS 


ResType; 


theType4 


ResType; 


njyAttrS 


IhrFEGERi 


!TiyAttr4 


INTEGER; 


the IDS 


MEGER; 


theID4 


INTEGER; 


^yHandlS 


Handlei 


rayHandl 4 


Handle; 



BEGIN 

iJ5eResF!le<0)| { switch to systens resource file } 

nsyhandlS ;= 8etRe50urce<'ICN#',ProIcon); { check if icon installed ) 
IF (myhand!3 = NIL) THEN 
BEGIN 



{ First get Profile icon } 

useResF i ie(AppRef ID) ; 

3etCur5or(watch) J 

nv'handiS ;= 6etRe50urce('"ICr'}«'",ProIcon)| 

SetResInto(fiyhandl3,theID3,thetype3,thenanie3); 

.^iyattrS i= GetResAttrsdityhandlS); 

DetachRe5ource<nsyhandl3) ; 



{ restore ptr to app's resource file ) 
C set busy cursor } 
{ get the ICN« handle } 



{ Do same for internal disk icon 3 

niyhandl4 \- GetResourceCICNS' ,IntrnlIcon); { get the ICN8 handle } 

8etRe5lnfo(myhandl45theID4,thetype4,thenaiie4); 

rayattr4 ;= GetResAttrsCfsyhandH); 

D9tachRe50urce(ntyhandl4); 



y5eResFi1e<0) 



{ switch to systera resource file ) 



rtddRe50urce(niyhandi3/ICNi'',th6lD3,thenanie3)j { add Profile icon } 
!T!yattr3 := nsyattrS * resChanged; { set resChanged bit ) 

SftRe5Attrs(r»yhand13,rTiyattr3)| { write new attribute flags } 
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AddRe30urce(fiyhand14,'I!^S',thelD4jthename4),' ( add Internal disk icon } 



?Tiyattr4 := (Byattr4 + resChanged; 
3etRe!5Attr5(?Byhandl4,niyattr4); 

JJpdateResFileCO); 
Re1ea5eRe50urce(niyhandl3); 
Re i easeResoupceCiiiyhandl 4) 
END 
ELSE 

Re]e35eRe£ource<n»yhandl3)| 

UseResFileCAppRe^ID); 

END; (of PRQC IskonlnSysRes) 



{ set resChanged bit } 

{ write new attribute Hags ) 

{ write out the resources to systeni resource -file} 
{ release resources } 



{ just release resource ) 

{ restore cur res reap as ntine ! !!i ) 



PROCEDURE ReadBootBlks; 

'read the lion i tor bootblocks I (hope^fully) just wrote to the hard disk) 

MAR 

err : INTEGER? 

BEGIN 

mW rsyHDPBlk DO 
BEGIN 

;oBiifter 1= copyBuffer; 
•oRelNun* := HDdryrRefnum; 
loyRetNuni ;= HD^'Relnum; 
ioReqCount j= 512; 
JoPosOHset ;= Oj 

err j= PBRead<n>yHDP8ptr, FALSE); 
Bid\ (ol PROC ReadBootBlks) 



{ hard disk driver relnurs 3 

{ default voluree for hard disk ) 

{ read one block ) 

{ frore the beginning ) 



(start of main body of HDI (Hard Disk Install)) 



BEGIN 
Hdinlnit; 
InitBufferj 
InitHyDialogs; 

S9tCuP5Qr(watch); 
AppRefID 5= CurResFilej 
result := HDOpen; 

■check for fatal errors) 

SetCur5or(arra»i); 

CheckErr^result); 

IF (result = MUorksFnd) THEN 
BEGIN 



{ set up the copy buffer ) 

{ set up all the dialog pointers ) 



r6- " 



{ save ptr to app's resource file ) 

{ Open the driver, add drives to drive queue, try mount ) cP^^ 



i^ 1^ 



{ if direct-start disk, ask hm to proceed ) {19Apr85} 



ID I log 5= 6etNewDialog(MUDilog, NIL, P0INTER(-1»} 



{19Apr353 
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Hodall)ialo9(NILf i tenth! t)j 
DisBOsDIalogdDi! log); 



{ remoue dialog 



CASE tershit OF 

i: {Initialize button pressed ) 

BEBIN 

DoinstalHEpasDnoQ, result, BlankDisk); ( erase entire drive 3 
IF iresult = UserCancel) THEN 

ByeByei 
mi) I 



C19Acr85} 
C19Apr85} 

{19ADr85} 
{19Apr85} 

{19Apr85} 

{19Apr85} 
{!9Apr85} 

{!9Aor85} 



BEBIN 

SiMnstai]; 
END; 



{ Replace Macyorks button pressed ) 



{19App85} 
C19Apr85} 
CI9ADr85} 

{19Apr85} 



ByeBye ; 
EN[J| (of CASE) 
END (04 IF THEN) 



{ Cancel button pressed } 



{19Apr85] 
{19ADrB5} 
{!9Asr85} 
{t9ABr85} 



ELSE IF (result = LisaFnd) THEN 

BEGIN { Lisa OS format , ask about sharing ) 

LDilog := GetNewDialoo^LisaDilog, NIL, P0INTER<-1))| 
ilodalDialogCNIL, iterahit); 



l)i5po50ialo9(L0ilo9)} 



{ renioye dialog } 



CASE itemhit OF 



{ Share button pressed > 



BEGIN 

result != KOMount; 

CheckErr(re5ult)| 

IF (result = AllOK) THEN 



{ Try to do mount oi drive ) 

( Check 4or fatal errors ) 

{ Mac side OK, say "already a shared disk*... ) 

DoInstalHSharDilog, result, Lisadisk) 
ELSE IF (result < 0) THEN C Mac side bad, say 'unreadable, do you want to format'.. 

BEGIN 

DolnstalKBadSDi log, result, Lisadisk); 

IF (result = UserCancel) THEN 
ByeBye 

END; 

mo; 

{ Erase All button pressed } 
BEGIN 

DoInstalKErasDilog, result, BlankDisk); ( erase entire drive 3 
IF (result = UserCancel) THEN 

8yeBye ; 
mD; 



Cancel button pressed 



ByeBye; 
Er€i; (of CASE3 
END {of IF THEN) 



ELSE IF f result = A110K) THEN 

DOInstalKMacDilog, result, MacDisk) 



{ Mac disk on-line ) 

{ check if reinitialize wanted 3 
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ELSE { damaged or not initialized ) 

BEGIN 

DoInsUlKBadlDilogj result, BUnkDisk); { erase entire drive } 
IF \r(?5u]t = UserCancel) THB^ 

Sy<?B>'e ; 
END; 

CASE (result) OF 

AHOKi 
3E81N 

result != WrtBootBlks; •( write boot blocks to hard disk } 

IskonlnSysRes; ( make sure hard disk icons are in sysres > 

SetCursor( arrow); 

iti?f?ihit ;= NoteAlertdstAlert, N1L)| ( notify about raoying system bolder } 

END; 

ri4orksFnd! { HacUorks has been replaced - all done ) {19Apr85} 

BEGIN {l?Aor85) 

END? {19ABr85} 

UserCancel : 

IsIconlnSysResj { raake sure disk icons are in sysres } 

OTHERl'ilSE 

BEGIN 

Ci;tnurR(r95uH, resstrng); ( convert error to string ) 

paraiitext(resstrn9f ", '•' , "); { set error id ior alert display) 

stenihit != StopAlertdnitAlert, NIL) { Display error } 

END; 
END; (of CASE) 

99: { bail out point) 

HideCursor; { return to the Finder . . .) 
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HARD DISK driver for HacUorks 
(c) Apple Computer, inc. 1984 



Originator; Wendell Henry 
Hodi-fication History; 



February 10, 1984 



Add driver header, change equates, add interleave tables 

Generalize DisKOpen routine -for drives on two port cards 

Add DiskSync call when builtin parallel port in use 

Add basic -file tag support for read and writes 

Reiitove for now search for drives other than builtin drive 

Change DiskSync call to TRAPTO call 

Add checks for driver already opened and drive installed in drive queue 

Add support for icon control call, change eject call support 

Add support for new fields in drive queue element (e.g., nonejectable disk) 

Add driver support for Widget niulti -block corwRands and interrupts 

Change get icon call response for new Finder protocol 

Add support for Lisa/Mac disk sharing 

Add retry in initialization routine 

Add erase cnid in DiskControl routine 

Move drive queue check irm DiskControl to Init controller routine 

Change icon id 

Add internal hard disk icon 

Add intercept Eject cossand kluge 

Add check for icon kluge 

Add erase end kluge 

Add support for DiskStatus call 

Do cleanup of driver portion 

Hodify erase cnid kluge 

Change driver name to .HardDisk 

Fix bug in error recovery routine S40 



Notes; add control call support to check for other disks 



.NOLIST 

.INCLUDE TLASM-SYSEQU.TEKT 

.INCLUDE TLA^-FSEQU.TEXT 

.INCLUDE TLASM-SYSERR.TEXT 

.INCLUDE TLASM-SYSMACS.TEXT 

.INCLUDE TLASH-TOOLMACS.TEXT 

.LIST 



; 1^-23/84 


RDC 


; 2.'24/84 


RDC 


; 2/29/84 


RDC 


', 3/1/84 


RDC 


I 3/12/84 


RDC 


^ 3/14/84 


RDC 


: 3/21/84 


RDC 


; 3/29/84 


RDC 


; 4/2/84 


ROC 


; 4/3/84 


RDC 


; 5/1/84 


RDC 


; 5/3/84 


RDC 


I 5/10/84 


RDC 


; 5/15/84 


RDC 


; 5/16/34 


RDC 


; 5/17/84 


RDC 


1 5/25/84 


RDC 


; 6/11/84 


RDC 


; 5/12.'34 


RDC 


: 6/13/84 


RDC 


; 6/13/84 


RDC 


1 6/14/84 


RDC 


; 6/18/84 


RDC 


; 6/21/84 


RDC 


; 7/5/84 


RDC 



iTifaeout values 






STRTTIME 


,EQU 


$1200000 


RSPTIME 


.EQOi 


$180000 


RDTIME 


.EQU 


fOOOCOOOO 


; RSPTIME 


.EQU 


$0050 


COUr^LIHIT 


.EQU 


100 


;Error codes 






READ ERR 


.EQU 


ReadErr 


WRITE ERR 


.EQU 


UritErr 


TIHEJRR 


.EQU 


-95 
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jPowerup time = about 180 sec 
{Normal response time = about U sees 
iREAD TIMEOUT. ABOUT 8 SECONDS 
I RESPONSE TIMEOUT = ABOLFT 0.5 MS 
ITIMEOUT LIMIT 



jError during disk read 
{Error during disk write 
^Response timeout error 
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NODISK ERR 


.EQO 


NoDriveErr 


|No disk attached 


RESP_ERR 


.EQiJ 


-96 


^Response error 


CSJRR 


.EQU 


BadDCkSura 


iChecksufs error 


Pm ERR 


.EQIJ 


-97 


;Parity error 


HD ERR 


.EQU 


-98 


|Hard Error 



liAIT INT 



■EQU 



jWait for interrupt indicator 



Equates for parallel port 6522 



UiA^SE 

!RB 

ORB 

IRA 

ORA 

DDRB 

DORA 

T2CL 

T2CH 

ACR 

PCR 

IFR 

lER 

PORTA 

RESETC 



.EQU 


$00FCD901 


.EQU 





.EQU 





.EQU 


8 


• EQU 


8 


.EQU 


flO 


•EQU 


$18 


.EQU 


$40 


.EQU 


$48 


.EQU 


$58 


.EQU 


$60 


.EQU 


$68 


.EQU 


$70 


•EQU 


$78 


.EQU 


$580 



;Base address 



jfocation to reset controller 



I Equates for Keyboard 6522 
V1A2BASE .EQU $OOFCD081 
0RB2 .EQU $0 
DDRB2 .EQU $4 



jBase address 

jPort B output register 

|Port 8 Data direction register 



: Equates for Two port 


cards 






TUOPORT 


.EQU 


$E002 


|T«o port card id 




SLOTICHI 


.EQU 


$00FC200C 


;S]ot 1, channel 1 




SL0T1CH2 


.EQU 


$00FC2800 


jSlot I, channel 2 




S10T2CHI 


.EQU 


$00FC6000 


;S1ot 2, channel 1 




SL0T2CH2 


.EQU 


$00FC6800 


jSlot 2, channel 2 




SLQT3CHi 


.EQO 


$00FCA000 


iSlot 3, channel 1 




SL0T3CH2 


.EQU 


$00FCA800 


;Slot 3, channel 2 




DDRB3 


.EQO 


$10 


^offset for DDRB on 


2-port card VIA 



IW1D6ET SPARE TABLE OFFSETS 
FMTJNTL .EQU 9 
INTL MAP .EQU 454 



jOFFSET TO DISK INTERLEAVE 
; OFFSET TO SOR irfTERLEA^^JE m? 



jWlDGET SOFT INTERLEAVE 
U imp .EQU 



$000C0511 



{FIRST PART OF irfTERLEAME TABLE FOR 5j1 



Equates for ]m raemory space used by boot RON 



M4BASE 


.EQU 


$500 


SLOTIID 


.EQU 


$298 


SLQT2I0 


.EQU 


$29A 


SL0T3ID 


.EQU 


$29C 



HDSK'v'ARS 



.EQU 



TwiggyVars 



{Offset in MacUorks world 
jcard id in slot 1 
;card id in slot 2 
jcard id in slot 3 

|low men* ptr to disk driver locals 
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; On ye specif 

*iRESET 

INFOl 

1NF02 

DQEL 

REALSIZE 

ti^DDRB 

DRIUETYPE 

ER_HS 

immmd 

SECTOR 
RETRYCNT 
SPARECr^ 
CHDJuFFER 

ERROR 

lOERROR 

STATE 

STATUS 

FIRSTF3EQ 

FSBLKSDONE 

SECT LEFT 

CHECKSiH 

CXFERCNT 

CSII1_VALID 

NESTEDJDR 

ACCSTAT 

m BUF 

CTfTRESETS 

STRTBLK 

DruLclLth 



c local variables (onsets 

EQU 

EQU HyBASE+4 

EQU HWRESET+4 

EQU INF0H2 

EQU INF02+2 

EQU OQEL+H 

EQU REALSI2E+2 

EQU HWDDRB+1 

EQU DRIMETYPE+1 

EQU ER HS+1 

EQU COmAND+1 

EQU COMMANO+1 

EQU SECTOR+4 

EQU RETRYCffT+l 

EQU lOCOMMAND 

EQU SPARECNT+1 

EQU ERROR+2 

EQU IOERROR+2 

EQU STATE+2 

EQU STATUS44 

EQU FIRSTFSEQ+2 

EQU FSBLKS00NE42 

EQU SECT LEFT+4 

EQU CHECKSUM+2 

EQU CXFERCTfT+l 

EQU CSUM UALID+l 

EQU NESTED BDR+2 

EQU ACCSTAT+4 

EQU CMD BUF48 

EQU CNTRESETS+2 

EQU STRTBLK+2 



■frora driveX) 

Harcfciare base address for data lines (=0 it not installed) 

Harc^are base address for reset lines 

Write protect/disk in place in-fo 

Install/sides info 

Drive queue elersent (14 bxtes) 

actual size of entire disk (as opposed to ust Mac sortioe) 

offset for VIA DDRB register 

Type of disk drive (<)0 is yidget) 

Expected response during next handshake 

Current driver service cofmand 

Requested I/O cofKiiand (read/write) 

Current sector being accessed (high byte unused) 

Retry count for errors 

Sparing threshold 

Buffer for cwMsand bytes/sector/retrycnt/sparecnt 

Error for current operation 

Error return 

Current state of driver state machine 

4 bytes for reading disk status 

first file sequence jj for current read/write request 

^ of blocks read/written for current request 

It of blocks rereaining for current request 

save of preccmputed checksum for writes (in high byte) 

current transfer count 

checksum valid indicator 

indicator for bad response received 

accumulated state register status 

cfflimand buffer for Uidget corwuands 

number of times Widget reset 

starting block for Mac disk area 

length of drive local area 



Driver local variables 



DCE 

DRIVE 

EJCTSUB 

INITRQST 

PAD 

DRIVE4 

5DRIVE5 
;DRIVE6 
;DR!VE7 

J DRIVES 
;BR]VE? 
jDRIVElC 

TagBufPtr 
DiskVarLth 



.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
.EQU 

.EQU 
.EQU 
.EQU 
.EQU 
.EQU 
• EQU 

.EQU 
.EQU 





DCE44 

DRIVE+2 

EJCTSUB+4 

INITRQST+1 

PAD+i 

DRIVE4+DrvLclLth 
DRlVES+DrvLclLth 
DRIVE6+DrvLclLth 
DRIVE7+DrvLclLth 
DRIVEB+DrvLclLth 
DRIVE9+DrvLclLth 

DRIVE4+DrvLclLth 
TagBufPtr+4 



[Pointer to Device control entry 
iDrive #. 4 = default disk 
iptr to normal eject routine 
jinitialize request 

jLocals for internal drive 

jLocals for drive on slotl, chanl 

{Locals for drive on slotl, chan2 

■(Locals for drive on 5lot2, chanl 

{Locals for drive on slot2, chan2 

jLocals for drive on slotS, chanl 

jLocals for drive on slot3j chan2 

5ptr to 12 bytes for disk header if nonzero 
{Size of local variable space 



; Drive numbers for attached hard disks 
dm4 .EQU 4 

Diwn .EQU 5 
m46 .EQU 6 



jdrive on builtin port 
drive on slot 1, lower port 
drive on slot 1, upper port 
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01^7 


.EQO- 


7 


DRUe 


.EQU 


8 


bm9 


.EQU 


9 


mm 


.EQii 


10 



; GHsets into block -1 4or identifying disk 
DEyiYPE .EQU 14 
S2 .EQii 13 

; Offsets into Lisa OS page block 
LASTBLK .EQU $70 



\5i 
SZPARM 



.EQU 
.EQU 



$7C 
$02180200 



jdrive on slot 2, lower port 

fdriye on slot 2, upper port 

jdrive on slot 3, lower port 

idrive on slot 3, upper port 



jType of disk 

iStart of 3 byte disk size 



jLast block used 

jBlock size/data size in bytes 

jMalue for block size/data size fop Profile/Widget 



; Driver service coiiiraands 
INITCMO .EQU 
lOCHD .EQU 2 



{Initialize controller 
iPerfopni I/O 



READCMD 


.EQU 


2 


yRITCMD 


.EQU 


3 


; HIsc constani 


:5 




OCD 


.EQU 





BSY 


.EQU 


1 


RETRIES 


.EQU 


4 


MAXRETRY 


.EQU 


3 


SPARE 


.EQU 


10 


fmm 


■ EQU 


255 


iControl codes 






yfyCode 


.EQU 


5 


Pit t Code 


.EQU 


6 


"^agCode 


.EQU 


8 


Icon Code 


.EQO 


20 


InitDCode 


.EQU 


30 


EraseCode 


.EQU 


31 


1 Hisc equates 






jMskSync 


.EQO 


108 


Prolcon 


.EQU 


-16351 


Intrnilcon 


.EQU 


-16350 


StopEject 


.EQU 


8 


EjctTrap 


.EQU 


$17 


EraseTyp 


.EQU 


CSParani+4 



;Read 
jUrite 



{Open cable detect line 

{Control ler busy line 

|I/0 retry count 

{Hax controller retry count 

{Sparing threshold 

{raaxiffium block count for Widget raulti-block 



{verify disk 
{format disk 
{set tag buffer 
{get icon 
{init device 
{erase (fomat) disk 



{trap M for disksync call 
{ID for external drive icon 
{ID for internal drive icon 
{id for non-ejectable disk 
{trap It for eject call 
{erase type for forisat call 



.PROC HDDRyR,0 



.ijtt 



DISKOPB^, DISKPRIME, DISKSTATUS, DISKCONTROL, DISKCLOSE 



I driver header: 
HdsKDrvr 
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.UORO $4F00 
.WORD 0,0 
.UORD 



; Rara-ba5ed,read,write,Ctr] , Status 
; no delay or EMask 
; no raenu 



; Entry point ol-fset table 



.yORD 


DiskOpen-HdskDrMr 


open 


.yORD 


Di5kPrinie-Hd5kDrMr 


priiBe 


.WORD 


DiskControl-HdskDpvr 


control 


.WORD 


DiskStatus-HdskDr-vr 


status 


.yORD 


DiskClose-HdskDryp 


close 


.BYTE 


9 




.ASCII 


■'.HardDisk' 





; DiskOpen 



; Arguments: AO (input) 
I Al (input) 

I 00 (output) 



■- pointer to caller's parameter block 
-- pointer to device control entry 
— result code 



DiskOpen 



TST.L 


Oct]Storage(Al) 


BNE.3 


32 


nmE.i 


j*Di5kyarLth,D0 


NewPtr 


, SYS, CLEAR 


HOME-L 


A0,0ctlStora9e(Al) 


nmEi 


AGjHDSKUARS 


HOUE.L 


A1,DCE(A0) 



setup special eject code 



HO^/E.L Ai,-<SP) 
nmi.l A0,A1 
miEM «EjctTrap,DO 
_GetTrapAddre55 
MOUE.L AO,EjctSub(Al) 
LEA HDEjectjAO 

HOME.y UEJctTrapjDO 
_SetTrapAddres5 
HOME.L (SP)+,AI 



jlocals already allocated? 
jskip if yes 

fGet nieniory -for driver locals 

|Keep pointer in DCE 

;and save in Iw rsers for other use 

jKeep pointer to device control entry 



jsave DCE ptr 
jsave locals ptr 
jfirst get trap address 

jsave it 

?set ptr for our eject routine 

{replacing eject trap 



'.restore DCE ptr 



RTS 



; Substitute Eject routine for hard disk 



HDEject HOyEM-L Dl/A2r<SP) 

HOME.U IOURefNum(A0),D0 
BSR.S CkDrvParni 



;save regs 

;get drive for eject call 



HOyE.L HDSKyARS.Al 



jget ptr to locals 
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HOME.L 


DCE(An,A2 


jget DCE ptr 


CHP.y 


DCt]Re4NurB(A2),D0 


fpsquest for a hard disk? 


tlE.B 


31 




nmtM 


ItControlErrjDO 


jsignal error 


nmm.i 


<SP)+,D1/A2 


;re5tore regs 


RTS 




land return to caller 


HOME.L 


EjctSub(Al),Al 


;get ptr to real eject routine 


mm. I 


<SP)+.D1/A2 


{restore regs 


JMP 


(AD 


land go do it 



', Routine to check drive parameter, translate as appropriate 
• DO = driye parrs 



:;k Dry Parrs 



31 



a 



TST 


DO 


icheck drii/e type parra 


BEQ.S 


31 


•,5k ip if no dr iye/refflum specified 


BHI.S 


32 


iskip if really a MrefNure 


8SR.5 


GetMCBDrv 


jelse must be a drive ^ 


BRA. 8 


33 


igo do compare 


M(?v'E»L 


OefyCBPtr,Di 


;try default VCB ptr 


BEQ.S 


33 


iskip if none 


Hf^'E.L 


Dl ,A1 


iget ptr 


HOUE.W 


yCBDRefNuni<Al) ,D0 


jget driver refnura 


SRA.S 


33 




8SR.S 


GetMCBRef 


;go get driver refnura 


RTS 




jgo check it 



Routine; GetUCBRfn,6etMCBDrv 

Arguraentsj DO.W (input) -- IQDrvNuni<AO) = lOVRefNurB(AO) 

DO.U (output) — (no such volurse) or driver refnura 

All other regs are preserved 
Function; Determine driver refnum frcra MCB with DriveNura or URefNunt field. 



GetVCBRef MfWEM.L Dl-D2/A0r<SP) 
Hi3UEQ ttUCBMRefNum.Dl 
BRA.S GetVCBl 



I looking for UCB by volume refnum 



SetyCBDrv HOUEM.L D1-D2/A0,-<SP) 
HOyEQ IIMC8DrvNum,Dl 

GetMCBl LEA UCBQHdr.AO 
nm.l QHead(A0),D2 



I looking for UCB by drive number 

I search the queue of MCBs 
; qet first element 



Sfi 



BEQ.S 33 

HOgE.L D2,A0 

CUP.w 0(A0,D1),D0 

BEQ.S 32 

M0^;E.L QLink(A0),D2 



exit if no match 

next element pointer 

match? 

then take the good exit . . , 
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BRA.S 31 



32 



HOME.U 'v'CBDRe{Nuni(AO),00 jget driver refnuns 
MOVEH.L (SP)+,D1-D2/A0 

RTS 



DlBkControl 

Argumetrts! AO (input) — pointer to caller's parameter block 

CSCode = 1 {or Kill 10 

5 for Verify 

6 ior Fornjat 

7 -for Eject 

8 for Tag Buffer set 
20 for Get Icon 

30 for In it controller and add to drive queue 

31 for Erase entire disk 

CSParam = ptr to icon area for 6et icon call 

Al (input) ~ pointer to device control entry 
DO (output) -- result code 

Uses; A2 — save of local storage pointer 
A3 — ptr to drive specific variables 
A4 — ptr to disk port base address 
A5 — ptr to disk reset/parity line address 
A6 — ptr to driver variables 



To addi support for Kill 10, Set Tag Buffer calls 



DiskControl BSR CkDrvNum ;ensure proper drive # 

HO'v'E.L DCtl8torage(Al),A2 ; get ptr to locals 

HOVE.W IODrvNuni(A0),Drive(A2) ; save drive » 

nmiM CSCode (A0),D1 

SUBQ.W «KillCode,Dl ; KilllO? 

^lE.S 31 

nWE SR,-(SP) ; turn into NOP for now 

RTE ; special return for Kill 10 



;«M/ERIR' 
31 

■,*«FOiiAT 



SUBQ.W <i,'fyCode-KillCode>,DI ; Verify? 
»€.S 32 
BRA NoCnid 



; No support for now 



SUBQ.W <MFnjtCode-VfyCode>,Dl ; Forraat? 
BNE.S 33 
8RA 39 



; go do simple erase 
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;*»EJEC1 



SUBQ.W <«EjectCode-FnitCode>,OI j Eject? 
t€.S 34 
BRA NoCnid 



; Can't eject a hard disk! 



;*«SET TAG BUFFER 

i4 



;MSET Km 

35 



SUBQ.y <llTa9Code-EjectCode),Dl ; Tag Bugler set? 

BNE.S 35 

BRA NoCffld I No support for new 



SUB.U <«IconCode-Ta9Code>,Dl | Get icon? 
BNE.S 37 



; first do check to see what drive we'er operating frcm 



il4 



HOME.y BootOriMe,DO 

BSR CkDrvParm 

m?M DCtlRefNum(Al),l 

mi NoCffld 

HOMEM.L A3/A6,-<SP) 

BSR SETLCLS 

TST.B DriveType(A3) 

BEQ.S 313 

nmEM Uintrnllcon.DO 

8RA.S 314 

MWE.W SPpolcon,DO 

HOME.U DO,CSParani(AO) 

HouEQ m,m 

mm, I (SP)+,A3/A6 

BRA Done 



\mmi DEVICE CONTROLLER 

3? 



; get current drive 

j go translate to driver refnum 

I is it the hard disk? 

; exit if it's not 

; save regs 

5 get drive locals ptf 

I internal drive? 

I skip if not 

I else use internal icon 

use external icon 
return icon id to Finder 
no errors 
restore regs 
and return 



SUB.W <8InitDCode-IconCode>,Dl \ In it device? 

Bit 38 



;hecK for disk requested 

rWEH.L A3-A6,-<SP) 

BSR GETLCLS 

MOUE.L i*VIABASE,A4 

fmE.l ltUIA2BASE,A5 

HWE 00,01 

BSR CHK4DISK 

TST DO 

BEQ.S 311 

rWEH.L (SP) + ,A3-A6 

BRA DOr€ 



jsave regs 

iget drive locals ptr 

jHarddare base address for data lines 
jHarchiiare base address for reset lines 
jset drive If 

igo check drive type and enter in drive queue 
; if device is disk 
;any errors? 
iskip if none 
;else restore regs 
;and exit 
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disk found - am setup durwRy request block, buffer area for check if Lisa disk 



311 



312 



315 
920 



MOUEM.i. 


A0/A2,-<SP) 


SUBA 


HI0QELSI2E,A7 


nwEi 


A7,A0 


MWEQ 


ltl27,D0 


CLR.L 


-(SP) 


DBF 


00,312 


MOME.L 


A7,IOBUFFER<A0) 


MOME.U 


#READCMD,IOTRAPCAO) 


mm 


«38,D0 


CLR 


STRTBLK<A3) 


mm 


112, Dl 


ASL.L 


US.Dl 


HWE.L 


D1,IOBYTECOUNT(AO) 


HULU 


01, DO 


MOME.L 


D0,IOPOSOFFSET(A0) 


mJEM 


«1,IOPOSMODE(AO) 


8SR 


CALLDRIMER 


TST 


DO 


BNE.S 


320 


HO'^E.L 


IOBUFFER<A0),A2 


CHP.L 


«SZPARM,BLKSZ<A2) 


SNE.S 


320 


HOv'E.L 


LASTBLK<A2),D0 


ADD.L 


»9,D0 


HWE9 


itDQEL,01 


OiP.U 


DQDR'vlS12E(A3.DI),D0 


B6E.S 


315 


HWE 


D0,STRTBLK<A3) 


suB.y 


D0,DQDRMSIZE(A3,D1) 


HOME 


»Li5aD5kErr,D0 



ADDA lf<I0QELSIZ£+512>,A7 

HO'^EM.L <SP)+,A0/A2 

MOMEM.L (SP)+,A3-A6 

BRA.S DONE 



|saye other regs 

jStack space for duranty I/O request 



jclear buffer space area for block data 



jsave buffer address 

',do read 

; of page block for Lisa OS 

} with no offset 

jset Dl = 512 

;read single block 

jtranslate block # to byte offset 

;saMe as read position 

'firm start of disk 

;Go do it, result in DO 

5check for error 

jskip if yes 

iget buffer address 

icheck block size/data size partus 

iskip if not correct 

iget last block used Malue 

ladd It of unused blocks 

jlength of drive queue element 
iblocks used saise as drive size? 
;skip if no blocks available 
else save as first block for Mac area 
and set correct value for Mac disk total blocks 
set Lisa disk found return code 

|Pop space for sector and I/O request 
;re5tore regs 

;and exit with result 



:*»ERASE DISK 



38 



3UB.W <«EraseCode-InitDCQde>,Dl 

8r€.S NoCriid 

MOME.W Er3seTyp(AO),00 

^E.S 39 

MOUEM.L A3/A6,-(SP) 

BSR.S 8ETLCLS 

HOME STRTBLK(A3) ,D0 

riff^EQ SDQELjDl 

ADD.W D0,DQDRMSI2E(A3,D1) 

CLR ST!?TBLK(A3) 

tWEM.L (SP^ijAS/AfS 



Erase (forrrrat) disk? 

erase entire disk? 
skip if not 

else save regs 

get ptr to locals 

get start block 

get offset to drive queue element 

update disk size 

and set starting block as block 

restore regs 
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setup dunwy request block to do format 



SUBA 
HO'^E.L 

HOVEQ 
210 CLR.L 

DBF 

HOVE.L 
MOME.B 

nmEM 

HOUEQ 
ADD.L 

mm 

A3L.L 

nuLU 

HO'^E.L 
Hdv'EQ 

Hffv'E.y 

BSR 

CLR.B 

ADDA 

HOME.L 

BRA.S 

I Inyalid CKSsand 



AO,-(SP) 

«I09ELSIZE,A7 

A?,AO 

#12?, DO 

-<SP) 

D0,-3]0 

A7,IOBUFFER(A0) 

jll,INITR8ST(A2) 

»UR1TCMD,I0TRAP(A0) 

#D8EL,D0 

#DRiyE4,D0 

DQDrwSi2e(A2,D0),D0 

il2,Dl 

}I8,DI 

DI.DO 

D0,IOBYTECOW(A0) 

»0,D0 

D0,IOPOSOFFSET<A0) 

«I,IOPOSMODE(A0) 

CALLDRWER 

INITRQST(A2) 

ll<I0QELSI2E+5I2>,A7 

<SP)+,AO 

DOf€ 



jsave regs 

sStack space for duniniy I/O request 



jclear buf'fer space area -for block data 



isave buHer address 

irequest zero operation 

|via write casRand 

jget drive size in blocks 

Iptr to drive locals (assume driveif = 4) 

;set Dl = 512 

; translate block count to byte count 
fWrite entire disk 
istarting with first block 

jfroffl start of disk 

j6o do it, result in DO 

jreniove init request 

|Pop space for sector and I/O request 

;restore regs 



;and exit 



No&ud 



HOUE «ControlEpr,DO 



I unsupported connand 



uone 



BRA 



liskDone 



J Subroutine to 


COdipi 


te ptrs to drive 


locals 


; Returns; 


A3 


- ptr 


to drive specific 


locals 




M 


- ptr 


to driver locals 




; Destroys; 


Dl, 


D2 







GETLCLS 



HOME.L 


HdskUar5,A3 


MOME.L 


A3,A6 


AOD.L 


IIDRIVE4,A3 


CLR.L 


m 


CLR.L 


D2 


HOyE.W 


Drive(A6),Dl 


SUBQ 


JtDrv4,Dl 


HOUE 


«DrvLclLth,D2 


mui 


D2,D1 


AOD.L 


D1.A3 


RTS 





;get ptr to locals 

ssave as global ptr 

jset ptr to start of drive locals 

'.clear for use 

jget drive Jl currently active 
jconvert to nsultiplier 
;get length of drive locals 
scorapute offset to drive's locals 
;and set ptr to specific drive's locals 
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1 CHK40ISK - 


check for disk, attached to designated port 


; Arguments: 


AG (input) 


— pointer to caller's parameter block 




Al (input) 


~ pointer to device control entry 




A3 (input) 


" pointer to driye specific locals 




A4 (input) 


— pointer to port base address data lines 




A5 (input) 


~ pointer to port base address reset lines 




A6 (input) 


— pointer to driver locals 




DO (output) 


— result code 




Dl (input) 


~ drive it 



CHK4SISK HOME.L AC,-<SP) isave reg 

; check to see if there really is a drive attached 

34 



2C 



■^'?y 



HM.L 


A4,HUBASE(A3) 


jHardware base address for data lines 


HWE.L 


A5,HURESE7(A3) 


iHarAsare base address for reset lines 


HWE.B 


ltDDRB2,HUDDRB(A3) 


;assunie not using slots 


D1P.L 


!tMIABASE,A4 


lare we right? 


BEQ.S 


iO 


;skip if yes 


HO^'E.B 


JtDDRB3,HWDDRB(A3) 


|set for slot access 


HOME.W 


Dl ,DRIVE(A6) 


?5ave drive H in use 


nm£.B 


1!INITCHD,C0MMAND(A3) 


;Request initialization 


BSR 


PRODRIVER 


|6o execute initialization function 


nmEM 


ERROR(A3),D0 


jcheck for error 


BEO.S 


399 


'jSHip if all OK 


m? 


«NODISK_ERR,D0 


ino disk error? 


mE.s 


399 


jskip if not to exit 


CIR.W 


ERR0R(A3) 


^remove error 


CLR.L 


Hy»^SE(A3) 


;s8t for no attached disk 


MOUE.L 


(SP)+,AQ 


;restore reg 


RTS 







DiskStatus 

Arguments: AO (input) — pointer to caller's parameter block 
Ai (input) ~ pointer to device control entry 
DO (output) — result code 

To add: return of block -1 oarms? 



DiskStatus HOMEQ IIStatu5Err,D0 ; set error 

CHP.y tlDrvSt5Code,CSCode(A0) j valid status call? 

^E.S DiskDone | skip if error 

BSR CkDrvNum ; else check if for correct drive 



nmm.i Ai/A3/A6r<sP) 



J save regs 
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tfi 



BSR GETLCLS 

MOME.L A3,A1 

ADD.L lIlNFOljAI 

LEA CSParani(AO),AO 

HCv'E.W ERROR(A3),(A0) + 

HOVEQ «<DpiyeType-INF01>/2,00 

MWE.y (A1)*,<A0)+ 

SUBQ.W #1,D0 

»€.S 31 



get ptr to locals 

get drive specific ptr 

set ptr to start area 

get ptr to pararoeter block area 

return last error as first parrn 
set count for next set of parnis 
stuff them in param block 
leave DO = 



HOME.L CNTRESETS(A3),(A0)+ 
HOUEM.L ':SP)+,A1/A3/A6 



5 return reset cntr as last parnt 
•, restore pegs and exit 



Routine: 
Arguments; 



DiskDone 



DO (input) 
Al (output) - 



last error 
- pointer to disk DCE 



DiskDone 

HOUE.W DO,DskErr 
HQME.L J10Done,-<SP) 

OisKRTS RTS 



; save last error for file systera 
; use lODone vector 



; DiskClose 

; Arguments: AO (input) 

; Al (input) 

; DO (output) 



pointer to caller's parameter block 
pointer to device control entry 
result code 



DiskClose RTS 



jJust return - no errors, not closable 



; OiskPrinie 

J Arguments: AO (input) 

; Al (input) - 

; DO (output) - 



- pointer to caller's parameter block 

- pointer to device control entry 

- result code 



DiskPrirae 



BSR CKDrvNura 
8SR.S CallDriver 
BRA.S DiskDone 



jensure proper drive S 
|do return via lODC^E 
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subroutine to handl 


le interface lor PRODRIVER routine 


fllLDRiyER 






h(^;eh.l 


D2-D4/A0-A6,-;SP) 


jSave registers 


HffJE.y 


I0T!^P(A0),D4 


J I/O cofwaand 


mdM 


8$FF,D4 


jextract I/O coMand 


SUB9.B 


«2.D4 


;0=readj l=write, 2=write verify, 3=forrriat 


HOME.L 


DdlStora9e(Al),A3 


,'Get local yars 


MOME.L 


A3,A6 


jsaye ptr 


ADD.L 


*DRiyE4,A3 


•jset ptr to start of drive locals 


CLR.I. 


M 


;clear for use 


CLR.L 


D2 




MOUE.U 


Drive<A6),Dl 


iget drive if 


SUBQ 


«Dpy4,Dl 


jconvert to rsultipl ier 


HWE 


«DryLclLth,D2 


jget length of drive locals 


HULU 


D2,D1 


ICOTjpute offset to drive's locals 


ADD.L 


D1,A3 


land set ptr to specific drive's locals 


HWEl 


IQByteCount(A0),D2 


;# bytes requested 


LSR.L 


«7,D2 


;Convert byte count to block count 


LSR.L 


«2,D2 




nwEi 


D2,SECT LEFTCAS) 


isave as beginning block count 


HOVE. I 


DCt]Po5!tion(Al),D3 


;get current byte position 


HWE.U 


IOPosHode(AO),DO 


;get positioning mode 


ROXR.B 


«2,D0 


iplace bits into sign, carry 


BFL.S 


33 


jskip if no offset <0 or 2) 


BCC.S 


32 


jfBode 1 means absolute 


ADD.L 


I0Po504f5et(A0),D3 


jmode 3 is relative offset 


BRA.S 


33 




2 HiWE.L 


I0Po50flset(A0),D3 


juse as starting byte position 


c ASR.L 


«7,D3 


{Convert byte position to blk position 


ASR.L 


112, D3 




ADD 


STRTBLK(A3),D3 


;add starting block offset 


HO^^E.L 


D3, SECTORS A3) 


jsave as starting sector 


HOyE.B 


D4,I0C0MMAND<A3) 


isave command 


Hffv'E.L 


IOBulfer(A0),A2 


ibuffer pointer for data 


HWE 


«TagData+2,Ai 


jassurae use of default tag buffer area 


TST.L 


TAGBUFPTR(A<S) 


,'separate tag buffer exists? 


SEQ.S 


31 


jskip if not 


HWE.L 


TAGBUFPTR(A(S) ,A1 


lelse use it 


1 HM.y 


TAGDA7A+8,FIRSTFSEQ<A3) jsave first file seq « for writes 


CLR.y 


FSBLKSD0NE(A3) 


jzero blocks done field 


HCv'E.B 


SmXRETRY,RETRYCNT(A3) jlnitialize petry/spare count fields 


HOUE.B 


»SPARE,SPARECNT<A3) 




HWE.B 


itI0CMD,C0ff1^D(A3) 


jrequest I/D service 


BSR.S 


PRODRIVER 


SStart I/O operation 


nm£M 


ERR0R(A3) ,D0 


jset for exit 


MQ^'E.W 


D0,IOERROR<A3) 


jSave as last error code 


HGUEM.L 


<SP)+,D2-D4/A0-A6 


^Restore registers 


RTS 
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Routine called to yeri-fy proper driye nunibep 
Input! AO - ptr to paranseter block 



CkDruNum 



nmiM 


IIWOpvNuni(AO) 


5 DO 




m?M 


«DRV4,D0 




check only for default driye for now 


BEG 


OlsKRTS 




return if OK 


ADDO 


114, SP 




else strip off return address 


mm 


ifNSDrMErr,DO 




set bad drive number 


SRA 


DiskDone 




and exit driver 



;««Mi(«»J$«4J(>««M«'!(J(XM»«XM4««X%«««««%Jtit««%«M««»MJ(««««J(«»««»«J(««$««M«««J(«» 



J Hain entry point to driver 

\ Input ~ AO = ptr to I/O parameter block 
Al = Address of Header buffer 
A2 = Address of Data buffer 
A3 = Address of Drive specific variables 
M = Address of Driver variables 
D2 = I/O block count 
D3 = Starting block number (also saved in drive locals) 

Registers used 

AO = Hardware base address for reset lines 

A4 = Hardware base address for data port 

DQ = Scratch 

Dl = Scratch 

D2 = Scratch 

d^ = Save of ptr to I/O parameter block 

Block Format used (532 bytes total): 

yidget: 

512 bytes data 
12 bytes Mac file tags 
7 bytes unused (=0) 
1 byte checksum (8 bit XOR) 

Prof i le; 

12 bytes Mac file tags 
7 bytes unused (=0) 
I byte checksum (8 bit XOR) 
512 bytes data 



;i«»i^«««»)^«»»i(i(99»X»i(X«X»3(»XX«««««XM««»«$»«»i(XX«X«»«Xi(«M¥X«X««X)i«M«9«S)(X%«J(J(« 



ProDriver 



MOMEM.L D3-D4/A0-A4,-(SP) 
nm£.l HUBASE(A3) 5A4 
CMP.L il^'IABASE,A4 

EHE.S 31 

mm ill ,D0 



•jSAVE REGS USED 

;Data port base address 

•jusing builtin port? 

fskip if not 

lelse indicate parallel port is busy 
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il 



pi 



TRAPTO JiskSync 

HOME.L A0,D4 

HOVE.L HURESET(A3),A0 

CLR ERR0R<A3) 

CLR CWRESETS(A3) 



isave parani block ptr 
;5et reset line base address 
jzero the error return code 
I and the reset counter 



Mf?iE.B CCIfW^D(A3) ,D0 jGet conmand 

nm£M STARTJTA7E<D0),STATE<A3) jGet initial starting state 



iPICK UP STATE TABLE OFFSET 



nmE 


STATE(A3),D0 


tWE 


STATE TABLE(DO), 


JSR 


STATE TABLE(DO) 


TST 


DO 


8r€.S 


LPl 



CALL ROUTINE, WHICH MUST PRESERVE D4-D7,A2-A6, 
AND RETURN UITH DO IFF CALL i^^OTHER STATE 
CALL ATWTHER ROUTINE IF DO 



."Exit the driuer's state raachine 



B(IT_STATE 

CMP.L fvlIABASE,A4 

^E.S 39 

mM MM 

TRAPTO JiskSync 
29 nmm.l (SP)+,D3-D4/A0-A4 ;REST0RE REGS 

RTS 



jusing builtin port? 

;skip i-f not 

jelse mark parallel port as not busy 



I PROFILE..'UIDGET STATE MACHINE 



STATE TABLE 



START_STATE jStarting state depending upon CHBuand 

.yORO INIT STATE-STATEJABLE ;lnitial ize Controller 
,yORD lOJTATE-STATEJABLE |I/0 



INIT_SlWrE 

-WORD S80-STATE TABLE 



j'start of states to initialize controller 
llnitialize controller 



!0_STATE jStart oi states for I/O 

.yORD SO-STATE_TABLE {starting point for new I/O request 



NEy CHD 



.WORD Sl-STATEJABLE 
.yORD S2-STATE TABLE 



jUSE SINGLE-BLOCK COMMAND 



do handshake 

do 2nd handshake; poll for Ims - 

wait for int if longer 
.yORD S3-STATE_TABLE jsend conmand to disk 

.UORD S1A-STATE_TA8LE {CONTINUE READING 
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.WORD S200-STATEJABLE 
.WORD S6-STATE_TABLE 
.WORD S7-STATE TABLE 



WRT 



? 
? 

HS 



|do 2nd handshake, always wait for interrupt 
;read profile status 
;read data 



.WORD SIA-STATE TABLE ; CONTINUE WRITING 



■WORD 


S8-STATEJABLE 


WORD 


SIO-STATE TABLE 


.WORD 


SIA-STATE TABLE 


WORD 


S200-STATE TABLE 


.WORD 


S6-STATEJABLE 


WORD 


S13-STATE_TABLE 


.WORD 


Sl-STATEJABLE 


.WORD 


S2-STATE_TABLE 


.WORD 


S3-STATE TABLE 


.WORD 


SIA-STATE JABLE 


.WORD 


S200-STATE TABLE 


.WORD 


S6-STATE TABLE 


.WORD 


S20-STATEJABLE 


WORD 


SI -STATE TABLE ; 


WORD 


S2~STATEJABLE 


WORD 


S3D-STATE TABLE 


UORD 


SIA-STATE JABLE 


WORD 


S2-STATE JABLE 


WORD 


S31 -STATE TABLE 



;do 2nd handshake and compute checksum 

jwrite data 

■;do handshake 

|do 2nd handshake, always wait -for interrupt 

;read profile status 

{return, or start re-read to verify 

;READ-BACK TO VERIFY AFTER WRITE 

;do 2nd handshake; poll for Inis - 
I wait for int if longer 

fsend read ciHWBand to disk 
jdo handshake 

•jdo 2nd handshake, always wait for interrupt 
;read profile status 
;cfflT»pute checksum on data 

EXTRA HANDSHAKE TO UPDATE SPARE TABLE 

;do 2nd handshake; poll for Inis - 

; wait for int if longer 

;send illegal cormiand 

;do handshake 

; send 55 regardless of response 

jpeturn 



BDR 



.WORD S4e-STATE JABLE ;BAD RESPONSE FROM HANDSW^KE 



,WORD Sl-STATEJABLE 

.WORD S2-STATEJABLE 

.WORD S41 -STATE JABLE 

.WORD SIA-STATE TABLE 

.WORD S2-STATE TABLE 



■WORD 


S42-STATEJABLE 


HULTI CHD 




.WORD 


Sl-STATEJABLE 


.WORD 


S2-STATE JABLE 


.WORD 


S50-STATE JABLE 


RD_HEXT 




.WORD 


SIA-STATE TABLE 


.WORD 


S200-STATE TABLE 


.WORD 


S6-STATE JABLE 


.WORD 


S51 -STATE TABLE 


.WORD 


SIA-STATE TABLE 


.WORD 


S2A-STATE JABLE 


.WORD 


S52-STATE TABLE 



continue if widget - do handshake 
do 2nd handshake; poll for Iras - 

wait for int if longer 
send 'read status' CKHsand 
do handshake 
do 2nd handshake; poll for Iras - 

wait for int if longer 
read status - return bad response 



WRT NEXT 



;USE MULTI-BLOCK COMMAND 
do handshake 
do 2nd handshake; poll for Irns - 

wait for int if longer 
send comand to disk 

;READ NEXT BLOCK IN MULTI-BLOCK COffiAf^D 
do handshake 

do 2nd handshake, always wait for interrupt 
read profile status 

read data - loop to RD_NDCT for tisore blks 
Do handskake to free device 
do 2nd handshake; poll for lins - 

wait for int if longer 
If needed start new raulti_b1ock request 

;WRITE NEXT BLOCK IN MULTI -BLOCK COTfiAND 
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.WORD 


SIOA-STATE TABLE 


.WORD 


SIA-STATE TABLE 


.yORD 


S53-STATE TABLE 


.UORO 


SIA-STATE TABLE 


.UORD 


S2-STATE_TABLE 


yRT STATUS 




•UORD 


S6-STATE TABLE 


.WORD 


SI -STATE TABLE 


.yORD 


S2A-STATE TABLE 



•WORD S52-STATE TABLE 



write data 
Do ■first handshake 
loop to URT_NEXT for reore blocks 
Do first handshake 
do 2nd handshake; poll lor Iras - 
', wait for- int il longer 

;Read status 

|Do handskake to free device 

;do 2nd handshake; poll for Iiss - 

; wait for int if longer 

;lf needed start new niulti_block request 



; INITIALIZE '^RIABLES FOR FIRST HANDSW^KE 
; return: continue at next state 



SO MOMEQ 


HI .DO ; 


advance to next state iintediately 


TST.B 


DRIVETYPE(A3) ; 


Controller support system commands? 


3EQ.S 


31 ; 


No - Go issue single block command 


HOUE.W 


i1ULTI_CMD-STATEJABLE,STATE(A3) ; Next state for multi-block 


RTS 




; conmand 


31 ADDQ 


«2,STATE<A3) | 


advance to next state 


RTS 






! — — - 

J ASSERT "CHD" AND WAIT FOR "BSY* 




1 return; continue at next stats 


now, or wait for interrupt first 


31 MffJE.B 


#1,ERHS<A3) ; 


Expected response 


SiA ADDQ 


l}2,,STATE<A3) ; 


advance to next state 


; ANDI.B 


«$FE,PCR(A4) , 


interrupt on falling edge 


Hffv'E.B 


W02,IFR(A4) ; 


clear pending ints 


ORI.B 


ll$08,ORB(A4) ; 


set dir = in 


mm.B 


«$EF,0RB<A4) ; 


set cmd=true 


CLR.B 


DDRA(A4) ; 


set port A bits to input 


BSR 


WAIT BUSY ;poll until busy 


■^'ST 


DO 




BE9.S 


GETRSP ;« 


>kip if OK 


MC?JE.B 


IITIME_ERR,ERR0R(A3) ;e 


Ise set timeout error 


Hff^EQ 


#0,D0 ;return now 


RTS 


;and exit 


5 HiWE 


«RSPTIHE,DO 


set response timeout to about 1 ras 


jWFBI 8TST 


«1,IFR<A4) 


wait for busy 


; BNE.S 


GETRSP 


skip if OK 


; DBF 


D0,UFB1 


else loop until timeout 


: MWE 


mil 1NT,ERR0R(A3) 


wait for interrupt — parking head now 


; MWE.B 


}lfFF,f2CH(A4) 


START TIHER FOR DISCON ERROR CHECK 


f HOUEQ 


itO,DO 




RTS 
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GETRSP 



HOME.B llf02,IFR<A4) 

nmEQ MM 

RTS 



I dear interrupt -flag 
; continue at next state 



;GET RESPOi^E, i4AIT FOR BSY FOR IMS THEN RESORT TO UAIT FOR INTERRUPT 

; return; continue at next state or SDR state a^ter interrupt 
h rioyE.B U69,D2 jRespond with free device reply 

BRA.S S2J0 

HWE.B i»55,D2 {Respond with standard reply 

60 BSR.S RESPOND 



SSR 


yAIT NOTBUSY 


ipoll until not busy 


TST 


DO 




8E0.S 


32 


iskip \i OK 


MOgE.B 


«TIME ERR,ERR0R(A3) 


;e]se set tirseout error 


MOUEQ 


«0,D0 


jreturn nm 


RTS 




5 and exit 


HOME 


«RSPTIME,DO 


jResponse tiiseout of Ints 


31 BTST 


#1,IFR(A4) 


|Uait for not busy 


BNE.S 


32 


;Skip if OK 


DBF 


DO, 31 


•jElse loop till timeout 


HQ'v'E 


mil M.ERR0R<A3) 


;Wait for interrupt 


HO^/E.B 


«$FF,T2CH(A4) 


jSTART TIMER FOR DISCON ERROR CHECK 


HOVEQ 

RTS 


m,m 




2 nController not busy 




Mff^E.B 


»*02,IFR(A4) 


iClear interrupt flag 


riaiEQ 


#1,00 


jContinue at next state 


RTS 







iGET RESPOr^SE, ALWAYS WAIT FOR INTERRUPT 

; return; continue at next state or BDR state after interrupt 



S200 



BRA.S S2 



ijust poll for now 

jRespond with standard reply 

;Uait for interrupt 

I START TIMER FOR DISCON ERROR CHECK 



HOME.B t«55,D2 

8SR.S RESPOND 

MO'v'E JiyAITJNT,ERR0R(A3) 

MOME.B WFF,T2CH(A4) 

M0',;EQ «fl,DO 

RTS 



lRESP0^^D TO PROFILE H^DSHAKE -- SUBROUTINE USED BY S2, SB, S2C0 
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: Input! D2 = Reply to be sent to controller if response 

', Output: M = response irm controller 

I 02 = Final reply sent to controller 

I UPDATES STATE FOR ERROR OR "NEXT" STATE. 



RSPOK 
SNDR! 



RESPOND 

; OR! .8 

HOME.B 
CHP.B 
BEQ.S 
TST.B 
BPL.S 
ADDQ 
ANDI.B 
HffvlE.B 
HOUE.B 
HWE.B 
DRI.B 
RTS 
DJSP HOWE 
HOME.B 
TST.B 
BEQ.S 
Hi^E.B 
BRA.S 



frIOl ,PCR(A4) 
P0RTA<A4),01 
ER HS(A3),D1 
RSPOK 
ER HS<A3) 
BAD RSP 
»2,STATE(A3) 
»iE7,0RB(A4) 
#fFF,DDRA(A4) 
D2,P0RTA<A4) 
tl$02,IFR":A4) 
lt$:i0,0RB(A4) 



; restore to interrupt on rising edge 
get response in Dl 
did drive return state requested ? 
skip if yes 

<0 IS WILD CARD ON INPUT 
advance to next state 
set dir=out, cnid=true 
set port A bits to output 
send reply w/o handshake 
clear interrupt flag 
set crad=lal5e 



IIBDR-STATEJABLE,STATE(A3);NEXT STATE - FLAGS BAD RESP ERROR 

110,02 ; Negative reply for Profile/Seagate 

DRIUETYPE(A3) \ Widget? 

SNORl 

M^69,D2 I Negative reply for Widget 

SNDRl I and go send reply 



iTABLE OF !NTERLE(^;E REMAPPIN6S FOR LOW 4 BITS OF BLOCK NUMBER 
]9ti INTERLEAVE ON TOP OF 5:1 FOR PROFILE OR SEAI^TE (10 MB) 



MITAB .BYTE 0,5,10,15,4,9,14,3,8,13,2,7,1251,6,11 



; SEND COMMAND B\TES OUT mb INITIALIZE VARIABLES FOR NEXT HANDSHAKE 

return: continue at next state (read), continue at WRT state, 
; or return with parity error 



HWEM.L A1,-(SP) 



jsave regs 



^DI.B i«DF,ORB<AO) 
OR! .8 lt$20,ORB(A0) 
HO'^E.B l»$08,IFR(A4) 



jCLEAR PARITY 



LEA 


CMDJUFFER(A3) ,A1 ; 


MOVE.B 


(A1)+,0RA(A4) ; 


MOME.B 


(A1)+,0RA(A4) f 


HO'v/E.B 


(A1)+,0RA(A4) ; 


; do in 


terleave rersapping 


MOME.B 


(A1)4,D0 5 


MO^iEQ 


II*0F,D1 j 


Arc 


D0,D1 ; 


AND.B 


8IF0,D0 ! 


ADD.B 


INTlTABCDDjDO \ 



INITIALIZE REGS NEEDED 
send a conanand byte 
send a comand byte 
send a cocisnand byte 



get low byte of block number 

DO THE REMAPPING 

MASK LOW 4 BITS 

MASK HIGH 4 BITS 

Add in remapped low 4 bits 
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HOVE. 8 


D0!,ORA<A4) 


; send a cawisand byte 


HOME.B 


(A1)+,0RA(A4) 


1 send a ciMsand byte 


HOME.B 


(A!)4,0RA(A4) 


; send a comtand byte 


TST.B 


CHD BUFFER(A3) 


jUrite ccsiBsand? 


M.S 


39 


;Skip \i yes 


ADDQ 


lt2,STATE(A3) 


jContinue with read state next 


HffvfE.B 


«2,ER HS(A3) 


jExpected response 


BRA.S 


S3FINI 


;6o finish state 



39 HO'v'E.U «l.iRT-STATEJABLE,STATE<A3) }6o to write state next 
HOVE.B #3,ER_HS(A3) jExpected response 



S3FINI swinish off sending request 
HOUEQ 81 ,D0 



jAdvance to next state now 



BTST 


»3,IFR(A4) 


iPARITf ERROR? 


; BEQ.3 


39 


{Skip if no 


; nmE 


ItPRTY ERR,£RR0R(A3) 




I mM 


to, DO 


IRETURN NOy 



39 ORI.B #$18,0RB(A4) 
CLR.B DDRA(A4) 
mm. I (SP)+,A1 

RTS 



ipeset dir=in \ cid=fa1se 
;set port A bits to input 
IPestore pegs 



RD STATUS 



Read the status and check parity 
Output - status bytes in STATUS(A3) 

- Al = STATUS(A3) 

- DO = if status ualid 

= I if parity eprop reading status - status invalid 



MO'.'EH.L A1,-<SP) 
CLR.B DDRA(A4) 
ORI.B «I1B,0RB(A4) 



jSET PORT A TO INPUT (=0) 
;SET DIR = IN 



1 

; ANDI.B 


«$DF,ORB(AO) 


iCLEAR PARITY 


; ORI.B 


W20,ORB(A0) 




; MOME.B 


#*08,IFR<A4) 




LEA 


STATUS(A3) ,A1 


5GRAB ADDRESS OF ESTAT 


MOVE.B 


IRA(A4),(A]) 


jREAD 4 ERROR STATUS BYTES 


MO'vlE.B 


IRA;(A4).1<A1) 




HOVE.B 


IRA«;A4),2(A1) 




HO'^E.B 


IRA(A4),3(A1) 




BTST 


II3,IFR(A4) 


:PARiTY ERROR? 


; BNE.S 


31 
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NOMEQ ItO.DO ;Ual id status 

BRA.S 32 

riCv'EQ 81,00 Mnval id status 

MOMEH.L (SP)+,A1 jrestore reg 

5Tq 



J READ DISK STATUS 

I return! continue at next state, or return with parit;^ err op hard err 

So BSR RDJTATUS jRead status 

TST DO iStatus valid? 

IM.S 310 

!:MPI.B «$09,STATUS(A3) 

BEO.S 33 ;JUST C»^INUE IF GOT CRC ERROR m READ 

Hf^v/E.L }J*C14QC000,D0 

A^^D.L STATUS<A3),D0 ;SEE IF FATAL ERROR PRESBfT 

BEQ.3 33 

HOVE «HDJRR,ERR0R<A3) ; YES 

HO^'EQ #0,00 

RTS 

310 MOVE #PRTr ERR,ERR0R<A3) {status not valid 

mm «o,Do 

RTS 

93 AODQ II2,STAT£<A3) ; advance to next state 

mm #1,D0 ; do it now 
RTS 

jRDHDR READ HEADER FROH PROFILE 

;; AO = i/O address 

:; Al = File tag ADDRESS 

f D0,D2 = SCRATCH 

:; Di = CHECKSUM, UPDATED UITH THIS DATA 



RDHDR 


[ MOyE.L 


AO,-(SP) 


jsave reg 




HOVEQ 


#2,02 


jread 12 bytes of file tags into buffer 




LEA 


IRA<A4) ,A0 


{setup read address 


31 


HOyE.B 


(AO),DO 


jget 1st byte 




EOR.B 


D0,D1 


ladd to checksum 




HOME.B 


D0,<AD4 


irnove to buffer 




h»;e.b 


(AO),DO 


;get 2nd byte 




EOR.B 


D0,D1 






HO-^EJ 


D0,<A1)+ 






Hff^E.B 


(AO),DO 


iget 3rd byte 




EOR.B 


D0,D1 






HffvfE.B 


D0,(A1)+ 






MOyE.B 


(AO),DO 


;get 4th byte 




EOR.B 


D0,D1 






HOME.B 


D0,<A1)+ 






DBF 


D2,31 






MOMEQ 


#i,D2 


iget remaining 8 bytes of header 


32 


HOME.B 


<AC),DD 





EOR.B OO.Dl 
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MOP 




MC?^EJ 


(AO),DO 


EOR.B 


DQfOi 


NOP 




MWE.B 


(AO),DO 


EOR.B 


DQ,D1 


MOP 




HCv'E.B 


(AO),DO 


EOR.B 


D0,D1 


DBF 


D2,32 


MOME.L 


<SP)+5A0 


mB 





;needed lor timing 



;restore reg and exit 



;RDDATA READ DATA FROH PROFiLEA^IDGET, AND UPDATE CHECKSUM 

! AO = 1/G ADDRESS, 

I A2 = DATA ADDRESS(CL088ERED ON RETURN) 

! D0,D2 = SCRATCH 

; m = CHECKSUM, UPDATED WITH THIS DATA 

■ NOTE; OPTIMAL READ RATE l^S 14-21 CPU CYCLES BETWEEN BYTES (INCLUDING 

; THE READ OPERATION ITSELF), m FEWER CYCLES, AND THE PULSE 

; f^^DSHAKE IS NOT GUARANTEED TO BEAT THE NEXT READ. 



RDDATA 



33 



HOME.L 

MOUEQ 

LEA 

m^E.B 

EOR.B 

HOME.B 

nmi.B 

EOR.B 

MOUE.B 

HOME.B 

EOR.B 

m^E.B 

MOyE.B 

EOR.B 

HOME.B 

HOME.B 

EOR.B 

MOUE.B 

MOUE.B 

EOR.B 

MOUE.B 

MCWE.B 

EOR.B 

HOUE.B 

HOUE.B 

EOR.B 

HOUE.B 

DBF 

HQUE.L 

RT8 



AO,-<SP) 
#63, D2 
IRA(A4),A0 
<AO),DI} 



(AO) ,D0 
,D1 

(A2)4 
(AO),DO 

Dl 

(A2)+ 
(AO) ,D0 

Dl 

(A2) + 



(AO), 
DO 



02 



Dl 
(A2)+ 



(AO),DO 

,D1 

(A2)+ 
(AO),DO 

Dl 

(A2) + 



DO 

DO 

(AO),DO 

DO 

DO 



Dl 
(A2)* 



Dl 

(A2) + 
33 
(SP)+,AO 



;&ave reg 

I DO FAST READ, BY PROCESSING 8 AT A TIME 

jsetup read address 

lEXCLUSIUE-OR 

;SAUE DATA IN BUFFER 

lEXCLUSIUE-OR 
ISAUE DATA IN BUFFER 

;EXCLUSIUE-OR 

SSAUE DATA IN BUFFER 

;EXCLUSIUE-OR 
jSAUE DATA IN BUFFER 

;EXCLUSIUE-OR 

;SAUE DATA IN BUFFER 

jEKCLUSIUE-OR 
jSAUE DATA IN BUFFER 

;EXCLUSIUE-OR 

jSAUE DATA IN BUFFER 

;EXCLUSIUE-OR 

|»WE DATA IN BUFFER 

{REPEAT 

{restore 
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READ DATA 
Used by devices that must issue single-block cfflanands 
return: continue in HS state, or return without error or with parity 
or checksura error 



mm MM 
BSR.S RDHDR 
BSR.S RD9ATA 



INIT CHECKSUH MALUE 
READ HEADER FIRST 
THEN DATA 



;£rror conditions 

I Checksum eppoPj parity error, crc error - return itmediately with C5_err 

; Sparing occurred - \i profile then do extra sparing handshake 

HiWEQ «0,D0 

TST.B Dl ;NOW SEE IF CHECKSUH IS ZERO 

BEQ.S CS OK 

CER HOME m ERR,ERR0R(A3) ;NON-ZERO CHECKSUM ERROR 
RTS iRETURf^ WITH D0=0 

CS_OK 

? 8TST }I3,IFR(A4) 

\ BNE.S CER jPARITY ERROR? 

CMPI.B W09,STATUS(A3) 

BEQ.S CER I now RETURN WITH CHECKSUM ERROR IF GOT CRC ERROR 

flssue new cKipand to continue request (sectjeft > 0) 
jExit (sectjeft = 0) 

320 BSR.S ADJJDR icall routine for header adjustment 

BSR.S ADJ_NEXTBLK |and setup for next block 

ADDQ.L «1 ,SECT0R<A3) ;update logical block ptr 

SUBQ.L }J1,SECT_IEFT(A3) |decr sector count 

BEQ.S 340 ;Skip if no more sectors 

mJEM }INe>]_CHD-STATE_TABLE,STATE<A3) | Issue new cormand 

HO'.^EQ IthDO lAdvance to next state now 
RTS 

;Test sparing on last sector 

940 BTST l»2,STATUS+l(A3) jSparing occur? 

SNE.S 341 jskip if yes 

HOMED «0,D0 freturn inmediately 

RTS 

341 HOME «HS-STATEJABLE,STATE(A3) |D0 ONE MORE HANDSHAKE IF SPARING 

HOMEQ HI, DO -jDo it now 

STS 

jAdjust file tags as necessary 

ADJ HDR 

TST.B I0C0MMAND(A3) ?read conimand? 

BEQ.S 31 
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;Con!pute new tag for write 

MOME.U FSBLKSDflNE(A3),D0 jget « of blocks done 

ADD.U FIRSTFSEQ<A3),D0 jcorapute relative block # 

liWE.y D0,TA6DATA+8 -.save as part of file tag 

HffJE.L TiME,TA60A7A+10 jand timestanip it 

jReset tag buffer ptr if necessary 

il MWE #TagData+2,Al lassume use of default tag buffer area 

TST.L TA6BUFPTR<A<S) ^separate tag buffer exists? 

8EQ.S 32 jskip if not 

M0',;E.L TAGBUFPTR(A6),A1 jelse use it 

32 RTS 



jUpdate position and bytes read fields 



ADJ NEXTBLK 






nwE.i 


AOr<sP) 


jsave reset port ptr 


nWE.l 


D4,A0 


jget I/O block ptr 


rifWEQ 


1*2,00 




ASL.L 


m^m 


jset DO = 512 


ADD.L 


DO,IWuniDone<AO) 


jupdate H of bytes read 


ADD 


I*1,:FSBLKSD0NE(A3) 


JUpdate it of blocks done 


MOUE.L 


DCE<A6) ,A0 


iget ptr to DCE 


ADD.L 


DO,DctlPos!tion(AO) 


;update byte position 


tmE.i 


<SP)+,AO 


jrestore ptr 


RTS 







SLW iiPrecornpute the checksum before writing the sector 
HOVEM.L A1/A2,-<SP) jsave header/data ptrs 



34 



HWEQ 


80, Dl 


H»/EQ 


il2jD2 


MOME.L 


(A1)+,D0 


EOR.l 


DOjDl 


DBF 


D2,31 


HOMEQ 


«127,D2 


HOME 


A2,D0 


m\> 


ftl,DO 


BES.S 


34 


HOME.B 


5I1(A2), 


EOR.B 


D0,D1 


HOME.B 


<A2)+,D0 


EOR.B 


D0,D1 


HO'^E.W 


(A2)+,D0 


EOR.y 


D0,D1 


SUBQ 


«1,D2 


HO'JE.L 


(A2)+,D0 


EOR.L 


DO,Di 


DBF 


02,34 


JWEM 


Dl.DO 


sm? 


Dl 



jACCUHULATE CHECKSUM IN Dl, STARTING. WITH HEADER 
jREPEAT 4 BYTES 3 TIMES FOR 12 byte file tags 

jFOUR-BYTE CHECKSUM UPDATE FOR HEADER 
I REPEAT 

jNEXT INCLUDE 512 BYTES OF DATA 
I CHECK FOR ODD ADDRESS 

ISKIP IF EVEN 

;ODD, SO INCLUDE LAST 1 AND FIRST 3 BYTES NOW 



;AND GO THRU LOOP 4 AT A TIME ONE FEWER ITERATItfiS 



jREPEAT 

jXOR 4 CHECKSUM BYTES TOGETHER 
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EOR.U 00,01 

Hi3UE.W 01.CHECKSUM(A3) 

EOR.B 01 ,CHECKSlli<A3) jRETURN THE CHECKSUM BYTE 

HO'v'EH.L (SP)4,A1/A2 jrestore ptrs 

RTS 



I BET RESPOf^SE, i PRE-C»iPUTE CHECKSUM 

; return! continue at next state op BOR state, new or a^ter interrupt 



MOUE.B Jt*55,02 

3SR.S RE3PM) 

CHPI.B l»55,02 

Br€.S 35 

8SR.S C SUM 



ly 



[Respond with standard rep 

|Oid reply get changed? 

|YES, bad response, wait ior interrupt 

iPrecoupute the sector's checksura 



i 


HOME.B 


«1,CSUM MALID(A3) jniark checksum as valid 




BRA.S 


36 




35 


HOME. 8 


«0,CSUH VALID(A3) ;n>ark checksum as invalid 


3d 


BSR 


WAITNOTBUSY jpoll until not busy 




TST 


DO 






BEQ.S 


32 ;« 


»kip if OK 




iiO'.^E.B 


JITIMEJRR,ERR0R(A3) ji 


Ise set timeout error 




HWEQ 


#0,00 ;r 


'eturn new 




RTS 










;and i 


»xit 


32 


jController not busy 






Mfyy'E.B 


«$02,IFR(A4) ;C 


;iear interrupt flag 




HffVES 


#1,00 jContinue at next state 


. _ 


RTS 


— „ 




? 


8TST 


#1,IFR(A4) 


interrupt pending yet? 




BEQ.S 


25 


no - wait for the interrupt 




MWE.B 


#l,CSUMgALI0(A3) 


precomputed checksum is valid 




MOUE.B 


#*02,IFR<A4) 


clear interrupt flag 




MO^^EQ 


#1,00 


do it now 




RTS 






'|25 


MOUE.B 


#0,CSUMmiD(A3) 


precfflnputed checksum is invalid 




HWE 


#yAIT INT,ERR0R(A3) 


wait for interrupt 




MOVE.B 


l»FF,T2CH(A4) 


START TIMER FOR DISCON ERROR CHECK 




HOUEQ 


#0,00 






RTS 















?ITE DATA - Header followed by User Data 

'eturns continue at next state, or return with parity error 



310 TST. 8 CSIH_UALID<A3) 

BNE.S 310 

88R cjm 

ilO MOUE.B CHECKSUM(A3),01 

ANDI.B «$F7,0RB(A4) 



5precc»Bputed checksum valid? 

iskip if yes 

jcfflspute the checksum 

jGET PRE'v'IQUSLY-COMPUTED CHECKSUM 

;SET DIR=OUT 



[Date Sx'Mar/BSj File -#2#2-h6'drvr.TEXT] 



Page 4 



HOME.B »$FF,D0RA(A4) 



iSET PORT A BITS TO OUTPUT 



^DI.B **DF,0R8(AQ) 
ORI.B 8$20,0RB(A0) 
HO^JE.S l}$08.IFR(A4) 



{CLEAR PARITY 



BSR URHDR 
eSR.S URDATA 
BRA FINI WRITE 



jwrite header 

jwrite data 

;6o cfflfiplete write 



; yRITE DATA - User Data followed by Header 

J retyrn; continue at next state, or return with parity error 



ANDI.B »»F7,0RB<A4) 
HOME.B «$FF,DDRA<A4) 

^^DI.B ll$DF,ORB(A0) 
ORI.B 11*20, ORB(AO) 
HOVE.B «*D8,IFR(A4) 



;SET DIR=OUT 

;SET PORT A BITS TO OUTPUT 

ICLEAR PARITY 



BSR.S m yOATA 
BSR y ~ 



;write data 
jwpite header 



FINI WRITE jFinish Write 



BTST 


«3,IFR':A4) 


iCHECK PARITY ERROR BIT 


8EQ.S 


31 


? SKIP IF NO ERROR 


CLR.B 


DDRA(A4) 


;SET PORT A TO INPUT 


ORI.B 


ll$08,0RB(A4) 


|SET OIR=IN (ALSO CLEARS PARITY ERR FLAG) 


nmE 


SPRTYJRR,ERR0R(A3) 




HOVEQ 


«0,D0 


jRETURf^ NOW 


RTS 







3! 



CLR.B 


D0RA<A4) 


SET PORT A TO INPUT 


ORI.B 


lt$08,ORB(A4) 


SET DIR=IN (ALSO CLEARS PARITY ERR FLAG) 


SOBQ.L 


«1,SECT LEFT(A3) 


deer sector count 


fiOME.B 


#6,ER HS<A3) 


EXPECT 6 IN NEXT HANDSHAKE 


ADDQ 


«2,STATE(A3) 


advance to next state 


HOMEQ 


lil,DO 


CONTINUE 


RTS 







WRDATA WRITE l^TA BUFFER TO PROFILE 
AO = HARDWARE OUTPUT ADDRESS 
A2 = DATA BUFFER (CLOBBERED OT^ RETURT^) 
DO = SCRATCH 

SEQUENTIAL WRITES MUST OPTIMALLY TAKE 14-21 CPU 
CYCLES, INCLUDING THE WRITE INSTRUCTION ITSELF 



mmiA 



[Date 5/Mar/85; File -«2«2-hd/drvr .TEKTl 



Paqe 5 



31 



HOyE.L 


AO,-<SP) 


isave reg 


HWEQ 


«127,D0 


jURITE 4 BYTES, 128 TIMES <5I2 BYTES TOTAL) 


LEA 


0i^(A4) ,A0 


jsetup port address 


HOVE.B 


(A2)+,(A0) 


lURITE 1ST BYTE OUT 


NOP 






nOME.B 


(A2)4,(A0) 


lURITE 2ND BYTE OUT 


NOP 






HOUE.B 


(A2)+,<A0) 


iWRITE 3RD BYTE OUT 


NOP 






HOUE.B 


(A2)+,(A0) 


{WRITE 4TH BYTE OUT 


DBF 


DO, 31 


{REPEAT 


HOyE.L 

RTS 


(SP)+,AO 


{restore reg and exit 


;UR_yDATA URITE DATA BUFFER TO U1D6ET - COMPUTE CHECKSUM ON FLY 


{input 


- 




1 


AO = Di^A BUFFER 


(CLOBBERED ON RETURN) 


1 


A2 ^- mR\m9.E OUTPUT ADDRESS 


1 


DO = SCRATCH 




{Output 


- 




1 


Dl = Computed checksuns 



; SEQUET^IAL WRITES MUST OPTIMALLY TAKE 14-21 CPU 
I CYCLES, INCLUDING THE WRITE INSTRUCTION ITSELF 



UR UDATA 



91 



MOME.L 


AOr<SP) 


{save reg 


LEA 


0RA(A4) ,A0 


setup write address 


ril?^EQ 


itO,Dl 


iStart of checksum 


HOVEQ 


#127,D0 


WRITE 4 BYTES, 128 TIMES (512 BYTES TOTAL) 


MOUE.B 


<A2)+,D2 


■Get 1st byte 


EOR.B 


D2,D1 


Include in checksum 


HO'v'E.B 


D2,<A0) 


[Write Ist byte 


HOME.B 


<A2)+,D2 


Get 2nd byte 


EOR.B 


D2,DI 


Include in checksum 


nmE.2 


D2,(A0) 


Write 2nd byte 


HOME.B 


(A2)+,D2 


Get 3rd byte 


EOR.B 


D2,D1 


Include in checksum 


nmE,B 


D2,<A0) 


[Write 3rd byte 


HOME-B 


<A2)+,D2 


Get 4th byte 


EOR.B 


D2,D1 


[Include in checksum 


fioyE.B 


D2,(A0) 


Write 4th byte 


DBF 


DO,ai 


■REPEAT 


MOUE.L 


<SP)+,AO 


restore 


RTS 







jWRHDR WRITE HEADER TO PROFILE 

;A1 = FILE TAG BUFFER (Al CLOBBERED ON RETURN), 

{AD = HARDWARE OUTPUT ADDRESS, Dl = CHECKSUM BYTE, D2 = SCRATtH 



URHDR 



21 



nm^.i AO,-(SP) 

H!^;EQ J{2,D2 

LEA 0RA(A4) ,A0 

MOUE.B (A1)+,(A0) 



[save reg 

{•first write -file tags 
I setup read address 
{write 1st byte 
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m' 




;fop timing 


nWE.B 


(AD4,(A0) 


iwrite 2nd byte 


NOP 






m)£,B 


(A1)4,<A0) 


iwrite 3pd byte 


NOP 






HOyE.B 


<A1.H,<A0) 


fwrite 4th byte 


NOP 






DBF 


D2,31 




CLR 


DO 


•jwrite 7 bytes of 


HffvfE.B 


D0,(AO) 


jwpite It 


HOP 




ineed for timing 


HOME.B 


DO,<AO) 




NOP 






HOyE.B 


DO,(AO) 




NOP 






HOVE.B 


DO,<AO) 




NOP 






HO^'E.B 


DO,<AO) 




NOP 






HOUE.B 


D05(A0) 




NOP 






HOgE.B 


DO,(AO) 




HOP 







finally write out the checksum 

HOME.B CHECKSUM(A3),(A0) jwrite checksum as 20th header byte 
Mff^E.L (SP)*jAO ipestore reg and exit 

8TS 



mmm urite header to widget - cohpute checksuh m fly 

; Input - 

f AO = HARDWARE OUTPUT ADDRESS 

; Ai = FILE TAG BUFFER (Ai CLOBBERED ON RETURN), 

I: DO = SCRATCH 

; DI = CHECKSUH BYTE 

; D2 = SCRATCH 



yR UHDR 



•HOyE.L 


AOr<SP) 


jsave reg 


MO'^EQ 


112, D2 


jfirst write file tags 


LEA 


ORA<A4),A0 


;5etup read address 


MWE.B 


(Ai)+,DO 


;get Ist byte 


EOR.B 


D0,D1 


;3dd to checksum 


HOME.B 


DOf<AO) 


jwrite it 


MOME.B 


(A1)+,D0 


;get 2nd byte 


EQR.B 


DO.DI 


ladd to checksum 


MOME.B 


DOj(AO) 


'.write it 


nmi.B 


(Ai)+,DO 


iget 3rd byte 


EOR.B 


DO.Dl 


ladd to checksum 


HOME.B 


DO,<AO) 


jwrite it 


HOME.B 


(A1)+,D0 


iget 4th byte 


EOR.B 


DO.Dl 


;add to checksum 


nm/E.B 


DO, (AG) 


jwrite it 


DBF 


02,31 
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CLR 


DO 


\m\U 7 bytes of 


MIWE.B 


DO,(AO) 


iwrite it 


m? 




;nesd for timing 


Hi^E.B 


DO,<AO) 




NOP 






HOvE.B 


DO,(AO) 




NOP 






nmE.B 


DO,(AO) 




NOP 






nm£.B 


DG,<AO) 




MOP 






HOVE.B 


DO,(AO) 




MOP 






NOME.B 


DO, CAD) 




NOP 







inally write out the checksum 



HOVE.B 

RTS 



01,<AO) 
(SP)+,AO 



jwrite checksuft as 20th header byte 
{restore peg and exit 



S13 



;WR1TE SUCCEEDED, SEE IF NEED TO VERIFY 

; Used only by devices that do not support multi -block consitands 

] return 1 continue at next state (read) or at HS state, or return successful 



iMERIFY NOT CURRE^fTLY SUPPORTED 



TST.B 


V FLAG(A6) 




BEQ.S 


320 


iSKIP IF NO VERIFY NEEDED 


ADDQ 


«2,STATE(A3) 


', advance to next state 


CLR.B 


CMD BUFFER<A3) 


I CHANGE COMMAT^D TO READ 


MO^'EQ 


#1,D0 


; CIMINUE 


RTS 







jlssue new cramand to continue request <sectjeft > 0) 
lExit (sectjeft = 0) 



320 



BSR.S AD J HDR 



jcall routine for header adjustment 



325 



TST.B 


INITRQST(A6) 


idoing Initialize? 


BEQ.S 


325 


;skip if not 


HO^iE.L 


AO,-(SP) 


■fSave reset ptr 


HOVE.L 


D4,A0 


iget param blk ptr 


HOVE.L 


IQBUFFER(A0),A2 


;else restore buffer ptr 


MS^E.L 


(SP)+,AO 


irestore reset ptr 


BRA.S 


330 


jand continue 


BSR.S 


ADJ NEXTBLK 


;and setup for next bloc 
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339 



348 



941 



ADDQ.L 


it},S£CT0R<A3) jupdate logical block ptr 


TOT 1 


SECT_LER<A3) ^reore to transfer? 


BE9.S 


340 jSkip if no more sectors 


mEM 


#NEU_CHD-STATE_TABLE,STATE(A3) jlssue new conssand 


mm 


Kl ,D0 jAdvance to next state nm 


RTS 




jTest sparing on last sector 


8T8T 


«2, STATUS* 1<A3) {Sparing occur? 


M.S 


941 jskip if yes 


HWEQ 


ftO,DO jreturn ifKRediately 


RTS 




HO^fE 


JtHS-STATEJABLE,STATE(A3) ;D0 ONE MORE HANDSHAKE IF SPAR 


Mf^EQ 


MljDO |Do it now 


RTS 





» 



iREAD DATA TO COMPUTE CHECKSUM ONLY 

; returnj continue in HS state, or return without error or with parity 

; or checksurg error 



S2fl 


MOMEQ 


1*0,01 


;IN1T CHECKSUM MALUE 




"'ST.B 


DRWETYPE<A3) 


jUIDGET? 




mE,s 


m 


iSKIP IF YES 




liProfil 


e/Se agate 






BSR.S 


RHDR 


;READ HEADER FIRST 




NOME 


t*511,D2 


iREAD DATA 


33 


MOME.B 


(AO),DO 






E0R.8 


D0,D1 


;EXCLUSIVE-OR 




DBF 


D2,33 


{REPEAT 




BRA.S 


320 






lUidget 






3iO 


NOME 


#511, D2 


jREAD DATA FIRST 


311 


MOME.B 


(AO),DO 






EOR.B 


D0,D1 


lEXCLUSIME-OR 




DBF 


D2,31i 


{REPEAT 




SSR.S 


RHDR 


jREAD HEADER 


320 


TST.B 


Dl 


5NOW SEE IF CHECKSUM IS ZERO 




BEQ.S 


CS 0K2 




CER2 


HO^'E 


*tCS ERR,ERR0R(A3; 


;NO^^ZERO CHECKSUM OR PARITY 




MOMEQ 


*JO,D0 






RTS 






CSJK2 


BTST 


«3,IFR(A4) 






8NE.S 


CER2 


PARITY ERROR? 




CMPI.8 


*I$09,STATUS(A3) 






8EQ.S 


CER2 


now RETUI^ WITH CHECKSUM ERROR IF 



;l55ue new consiand to continue request (sectjeft ) 0) 
lExit (sectjeft = Q) 
320 BSR.S AD J HDR 

BSR.S AD J NEXTBLK 
ADDQ.L «1,SECT0R<A3) 
SUBQ.L »1,SECT LEFT<A3) 



icall routine for header adjustment 
land setup for next block 
{update logical block ptr 
{deer sector count 
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BEQ.S 339 jSkip if no reore sectors 

HWE.B «1,CMDJUFFER(A3) | Change command back to write 

MOVE.U 8NEU_CHD-STATE_TABLE,STATE(A3) jlssue new command 

"iO'.'EQ HljDO {Advance to next state now 

RTS 



330 8TST II2,STATUS+HA3) 

I3NE.S 340 

HOMEQ m,m 

RTS 



jTEST "SPARING OCCURRED* BIT 
{Skip if set SET 

■.EXIT 



340 MOME }»HS-STATEJABLE,STATE(A3) ;SET TO DO ONE MORE }*^DSHAKE IF SPARING 
H!^EQ «1,D0 
RTS 



;RHDR READ HEADER FROM PROFILE 

; m = HARDWARE READ ADDRESS 

; D05D2= SCRATCH, Dl = CHECKSUM, UPDATED WITH THIS DATA 

; D3 = CHECKSUM-PRESENT FLAG BYTE (7TH BYTE OF HEADER) RETURNED 



RHDR 



32 



MOUE.L 

LEA 

HOMEQ 

MOVE.B 

EOR.B 

DBF 

Mffv'E.L 

RTS 



AO,:-<SP) 

IRA<A4),A0 

II19,D2 

(AC), DO 

D0,D1 

D2,32 

<SP)+,AO 



;save reg 

jset read address 

;6ET 20 BYTES 

{GET BYTE FR»1 DISK 

{INCLUDE IN RUrHING CHECKSUM 

{REPEAT UNTIL DONE 

{restore 



{DO EXTRA HANDSHAKE WHEN SPARING OCCURRED, BY SENDING ILLEGAL 
I returns continue at next state 



S30 



S3I 



NGME.B 


J»FF,0RA(A4) 


send ILLEI^L cofnand byte 


ORl.B 


i«i8,0R8(A4) 


reset dir=in 


CLR.B 


DDRA(A4) 


and set port A bits to input 


mJE.E 


»*FF,ER HS(A3) 


MATCH ANYTHING ON NEXT HANDSHAKE 


ADDQ 


«2,STATE(A3) 


advance to next state 


MOMEQ 


ItljDO 


, COrfFINUE 


RTS 







{EXIT AFTER EXTRA »^DSf¥lKE 
; return; return successful 



ORl.B 


«$1B,0RB(A4) 


{ rese 


I dir 


«in 




CLR.B 


DDRA(A4) 


{ and 


set 


port A bits to 


input 


MOUEQ 


«0,DO 










3TS 




{EXIT 









{BAD RESPONSE FROM HAT^DSHAKE 

{ return: return with bad-response error 



S40 



TST.B DRiyETYPE(A3) 



{ Profile or Seagate device? 
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BEO.S 310 



31 



310 



S41 



jyidqet device 

"•ST.B NESTEDJDR(A3) 

310 

ill ,NESTEDJDR<A3) 

»RDTir€,DO 

«1,IRB(A4) 

32 

00,31 

310 

«2,STATE<A3) 

»1,D0 



BT^.S 

HOVE. 8 

HOVE.L 

BTST 

Br€.S 

DBF 

8RA.S 

ADDQ 

HWEQ 



; Bad response while handling bad response? 

I Start processing bad response 
I Wait -for controller- not busy 



Give up if timeout 
6o to next state 
Do it n»(! 



RTS 



;Pro-f lie/Seagate or nested error 



CLR.B 


NESTED BDR(A3) 


1 Nested errop or not Uidget - g 


HWE 


»RESP_ERR,ERR0R(A3) 




CLR.B 


DDRA<A4) 


; IN 


9R1 .8 


lt$iS,0RB(A4) 


1 dip = in, cnsd false 


HC^EQ 


#C,DO 


J petupn 


RTS 







[SEND "READ CONTROLLER ABORT STATUS" COftlAND 



mm.B i«DF,ORB<A0) 
ORI.B JI*20,ORB(A0) 
MOUE.B W08,IFR<A4) 



jCLEAR PARITY 



Hff-^E.B 


»$13,0RA<A4) 


^Diagnostic ciM!tand 


NOP 






HOUE.B 


M$01,0RA(A4) 


;Read status instpuction 


NOP 






HOUE.B 


it*05,0RA<A4) 


;Read state pegisteps 


NOP 






Hm/E.B 


lt*E6,0RA(A4) 


jCheck byte 


ORI.B 


1I$18,0RB<A4) 


jpeset dip=in ; cmd^false 


CLR.B 


DDRA(A4) 


jset popt A bits to input 


BTST 


«3,IFR(A4) 


; PARITY ERROR? 


»€.S 


31 


jSkip if yes 



ix 



ADDQ 


«2,STATE(A3) 


jGo to next state 


HOUE.B 


|}i3,ER_HS<A3) 


jExpected response 


HiWEQ 


#1,00 


{Advance to next state now 


•RTS 






HOME 


«PRTY_ERR,ERR0R<A3) 




HO'JEQ 


HO, DO 


jRETUm NOU 


RTS 
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;READ CONTROLLER'S STATUS 



S42 HOWE.L A1,-<SP) 

CLR.B 0DRA<A4) 

0RI.8 M$I3.0RB(A4) 

LEA STATUS<A3),A1 

mm »3,D0 

31 HOMEJ IRA<A4),(A1)+ 

DBF DO, 31 

Hff^E.L STATUS(A3),D0 

OR.L DO ,ACCSTAT<A3) 



jsave header address 

;SET PORT A TO INPUT (=0) 

jSET DIR = IN 

{Address o-f error status field 

jRead 4 status bytes 

jRead a byte 



laccumulate state register status 



jreset controller 

f¥^DI.B JI$F7,0RB(A4) 

mm.B }|$7F,RESETC<A4) 

HOMEQ #39,00 

32 DBF DO. 32 
ORI.B «$80,RESETC<A4) 
HOMEQ «I27,D0 

33 DBF 00,33 
ADDI.y «1,CNTRES£TS(A3) 
MOME.B »0 .NESTED BDR(A3) 
HOVE.L Wl 80000, DO 

310 BTST lfI,IRB(A4) 
BNE.S 311 
SUBQ.L «1,D0 
i-JE.S 310 

311 CHPI.y «l<5jCNTRESETS(A3) 
B6T.3 312 

nm£ M t1ULTI_CHD-STATE_TABLE ,STATE(A3) 

nWEQ #1,D0 

BRA. 3 314 



|Dir = out 
jToggle reset line 
{(wait 100 rnic sec) 



{(wait IHS) 

;Increjient reset counter 

fUait for not busy - about 16 seconds 



ni HOUE #RESP_ERR,ERR0R(A3) 

CLR.B DDRA(A4) 

ORI.B JI*18,0RB<A4) 

HOMEQ no, DO 



IN 

dir = in, crnd false 

return 



314 HOME.L (SP)+^A1 

RTS 



{restore header address 



SmD_CHD {Send Widget command 



{Input 



{ CMD_BUF = cofisand type, ccronand, and any pararseters 
{Output 



{ DO = result of issue = 
{ Di = scratch 



=1 Parity error durinq send 



MOUE.L A1,-(SP) 

it^DI.B l»DF,ORB(A0) 
ORI.B IH20,ORB(A0) 
im'E.B »$08,IFR(A4) 



{CLEAR PARITY 
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LEA 


01D eUF<A3) jAl 






iWE.B 


CHD_BUF(A3),D0 


jCfflimand type and length 




:EXT 


DO 






ANDI 


«fOOOF,DO 


;Extract length 




3UBQ 


M,m 






HOUEQ 


80, Dl 


jStart oi checkbyte 


41 


Hi^E.B 


<A1),0RA<A4) 


iSend byte 




ADD.B 


<AD4,DI 


\M6 to checkbyte 




DBF 


DO, 91 






EORI.B 


ItfFFjDl 






nmi.B 


D1,0RA(A4) 


jCheck byte 


) 


BTST 


r3,IFR(A4) 


•.PARITY ERROR? 


? 


^E.S 


32 


jSkip if yes 




HWEQ 


#0,D0 


jFlag as OK 




8RA.S 


33 




32 


MOMEQ 


«I,DO 


;F1ag as bad 


33 


HOyE.L 
RTS 


(SP)+,Ai 


irestore reg 



FOR DEVICES THAT SUPPORT MULTI -BLOCK COMT^DS 
SEND CCM-IAND BYTES OUT AND INITIALIZE VARIABLES FOR NEXT HAT^DSHAKE 
return: continue at next state <rd_next or wrt_next), 
or return with parity error 



';:HPI.B 82,CMD BUFFER<A3) 
BGE SSONOnTo 



;Non-I/0 request? 



31 



jSend Hulti -block I/O transkr request 

MfJv'E.L SECT_LER(A3),D0 jTransfer count 

t^CNT , DO |Hax mu 1 1 i -bl ock coun t 

31 

t1AXCNT,D0 

D0,CXFERCNT(A3) jCurrent sector count 

ll$265CHD BUF<A3) jconmand and length 

CHD BUFFER(A3),CMD BUF+1(A3) j Comniand 



IMP! M 

BLE.S 

Hl^v'E.W 

HOVE. 8 

Hm'E.B 

^m'E.B 

HOVE.L 

MOME.B 

eSR 

TST 

BNE.S 

TST.B 

BNE.S 

HWE.y 

HOVE.B 

QRl.e 

CLR.B 

8RA.S 



CMD BUFFER(A3),CMD BUF42(A3) r Cormand and sector 



DO,CMD BUF+2(A3) 
SEND CHD 



330 

CMD BUFFER(A3) 

310 



jblock count over conmand 
llssue Uidget cctfsnand 
j'Parity error during issue? 



j'Write cofuraand? 

jSkip if yes 

itRD_NEXT-STATE_TABLE,STATE<A3) -.Continue with read state next 
«$22,ERJS<A3) jExpected response 



l»ie,0RB(A4) 

DD!^<A4) 

320 



; reset dir=in ; crad=fal5e 
;set port A bits to input 
;6o finish state 



310 nmEM ItURTJEXT-STATEJABLE.STATECAS) ;6o to write state next 
HUvJE.B lt*23,ER_HS(A3) ;Expected response 

320 {finish off sending request 
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mm 

RTS 



#1,D0 



jAdvance to next state nm 



330 HOME }}PRTYJRR,ERR0R(A3) 
ORLB #*1B,0RB<A4) 
CLR.e 0DRA(A4) 



preset dip=in j crBd=fa]se 
jset port A bits to input 
}RETURN NOW 



;S50N0NI0 |A non-I/0 request is desired 

\ HOME tIFMTCMD-STATE TABLE, STATE(A3) 

\ nmEQ #1,D0 jNext state now 

I RTS 



I READ DATA - FROM MULTI -BLOCK ZUtmm 

I return: continue in HS state, or return without error or with parity 

; or checksunt error 



Cjci 



HOMES 


m,m 


jINIT CHECKSUM MALUE 


BSR 


RODATA 


;READ DATA FIRST 


esR 


RDKDR 


;THEN HEADER 


TST.B 


01 


|NOU SEE IF CHECKSltl 


mi 


S51CS BAD 





IS ZERO 



S51CS OK 



8TST 
ONE 



|{3,IFR(A4) 
S51PE 



{PARITY ERROR? 



CUPLB «09,STATUS<A3) 



8E0 



S51CRC 



[RETURN WITH CHECKSUM ERROR IF GOT CRC ERROR 



330 



iContinue with next block in current request (cx^ercnt >= 0) 
;adyance to next state (cx^ercnt = 0) 



jdecr sector transfer count 
;cal] routine ^or header adjustnient 
land setup for next block 
jupdate logical block ptr 
jAduance to next state now 
jDecreruent current transfer count 
;Skip if no raore blocks in current request 
|Any error at all on last transfer? 
jSkip if yes 
;,STATE(A3) jRead next block 
jExpected response 



SUBQ.L 


1*1 ,SECT LEFT(A3) 


BSR 


ADJ HDR 


BSR 


ADJJEXTBLK 


ADDQ.L 


#1 ,SECT0R(A3) 


HOMEQ 


«1,D0 


SUBQ.B 


♦ll,CXFERCNT<A3) 


BEQ.S 


330 


TST.L 


STATUS(A3) 


BNE.S 


331 


HOME.y 


«RD NEXT-STATE TAB! 


MOME.B 


}»22,ER_HS<A3) 


RTS 




J Cur r en 


t ccfiWRand completed 


ADDQ 


«2,STATE(A3) 


HOVE.B 


«1,ER_HS(A3) 


RTS 





jNext state to free device 



331 



{Current corauand stopped by firmware due to non-fatal error (reissue cntd) 
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HWE ilHliLT!_CHD-STATEJABLE,STATE<A3) ; next state 

RTS 

jHandle various read errors 
S51PE iParity error 

;iOyE SPRTY ERR,ERR0R(A3) 
3RA SSlQUn 



S51CRC |CRC. error 

HOME 
S5IQUIT HOUEQ SO, DO 

RTS 



#CS_ERR,ERR0R<A3) 



jThese errors require the •firfK^are to be stopped 
S5!CS_BAi) jSoftware checksurs is bad 
HOME »CS_ERR,ERR0R(A3) 

S51HDR_BAD jHeader error - error code is already in ERROR 



MOME.B II0,CXFERCNT<A2) 

MOME.L D4,A0 

MOUE.L ftO.SECT LEFT<A3) 

ADDQ *t2,STATE(A3) 

Hff^EQ #1,D0 

MiWE.B #$FF,ER HS(A3) 

RTS 



jClear current trans-fer count 

Clear sectors le^t to transfer 
Next state 

Noy 

Any response is OK 



i'lSSUE NEW HULTI-BLOCK COMMAND IF NECESSARY 

; return: sectje-ft = - return inanediately 

; sectJeftO - next state = NEW_CMD iniraediately 

S52 TST.L SECT_LEFT<A3) ^Sectors still to transfer? 

BEQ.S 21 sSkip if no 

HOVE IIMliLTI_CMD-STATE_TABLE,STATE<A3) j next state 

HCv^EQ «1,D0 ;Do it now 

RTS 

31 MOUEQ »G,DO |Return iiwuediately 

RTS 



CHECK RESPONSE DURING MULTI -BLOCK WRITE 
return: cxfercnt < - advance to next state after interrupt 
cxfercnt >=0 - next state = WRT_NEXT after interrupt 
response = IAS - next state = WRT_STATUS after interrupt 
response <>fA3 - next state = BDR insnediately 



353 



M0I.;E.8 


P0RTA(A4),D1 


ANDI.B 


«$E7,0RB(A4> 


MOME.B 


«*FF,DDRA(A4) 


MOME.B 


»*55,P0RTA<A4) 


OR! .8 


8*01 ,PCR<A4) 



Hf^E.B »$02,IFR(A4) 
ORl.B JJ*10,ORB<A4) 



Read response 
Dir=out; crad=true 
Port A bits to output 
Send reply 

interrupt on rising edge 

jClear interrupt flag 
|Gnd = false 
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34 



jDetem 


ine next state 


CHPI.B 


II$23,D1 


BNE.S 


320 


BSR 


ADJ HDR 


TST.B 


INITRQST(A6) 


BEQ.S 


34 


HWE.L 


AO,-<SP) 


lW£.l 


D4,A0 


HOME.L 


I0BUFFER(AG)fA2 


HOVE.L 


(SP)+,AO 


3RA.S 


35 


BSR.S 


ADJ NEXTBLK 



;Expected response? 
;Skip i-f no 

jadjust header ptp for next block 
jdoing initial ize? 
;5kip i-f not 
jsave reset ptr 
jget par an blk ptr 
;e1se restore buffer ptr 
{restore reset ptr 
;and continue 

;and setup for next block 



ADDQ.L #1,SECT0R(A3) ;update logical block ptr for next consiand 

SfJBQ.B «1 jCXFERCNT<A3) jOecreinent current transfer count 

BEQ.S 310 jSkip if no raore sectors 

HOME.U «URTJEXT-STATEJABLE,STATE<A3) ;next state 



36 



3? 



BSR 


yAIT N0T8USY 


ipoll until not busy 


CLR.B 


DDRA(A4) 


\ set port A bits to input 


ORI.B 


tt$18,0RB<A4) 


1 set dir = in, cred = false 


TST 


DO 




BEQ.S 


37 


iskip if OK 


HOME.B 


»TIME ERR,ERR0R(A3) 


jelse set timeout error 


HOyEQ 


ltO,D0 


jreturn nm 


RTS 




;and exit 


HOMEQ 


«i,DO 


1 continue at next state 


RTS 







36 MOVE itWAIT INT,ERR0R<A3) 

HC^E.B WFFJ2CH<A4) 

HOVEQ «0,D0 
RTS 



I wait for interrupt 

I START TIMER FOR DISCON ERROR CHECK 



310 ;no more blocks in current request 



MO^/E.8 fr$27,ER_HS(A3) 
ADDQ «2,STATE<A3) 
SRA.3 36 



{Expected response 
jadvance to next state 
jwait for interrupt 



320 inot expected response 

CMPI.B n^2,d\ jError response? 

BNE.S 330 ;skip if no 

tWlM ttyRT_STATyS-STATEJABLE,STATE<A3) j next state 
BRA.S 36 ;wait for interrupt 

330 jbad response 

MOME.W «BDR-STATE_TABLE,STATE(A3) jnext state 
MOMEQ #1,D0 ;do it now 

RTS 



; Entry point for controller initialization 
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Hakes no assumptions about state of controller 
Assumes A3 = ptr to drive locals 

A4 = base address o-f port's MIA 

AO = base address for reset/parity reset lines 
Returns DQ = result 



S80 



CLR.L 
liOUE.B 
ORI .B 
3RI .8 
mm .B 
ORI.B 
MOUEQ 
CLR.e 

mm .8 

QRI.B 

mdi.% 

ORI.B 

BIST 

BEQ.S 

nOME 

BRA 



D3 

HUDDRB(A3),D3 

»$A0,0<A0,D3) 

»$A0,ORB(A0) 

«$?B,PCR(A4) 

«<iB,PCR(A4) 

»0,D0 

DDRA<A4) 

«$FC,DDRB<A4) 

«$1C,D0RB<A4) 

*l$FB,0RB(A4) 

#$18,0RB(A4) 

lfO,,IRB(A4) 

32 

t^ODISK ERR, DO 

BYE 



jget o-f-fset -for reset line direction reg 
•,SET PROFILE-RESET & PARITY-RESET TO OUTPUT 
iNORMALLY BITS 5 & 7 OF ORB = 1 



;SET PCR TO UE, WITHOUT CHANGIf 
;PUT IN DO 



BIT «4 



iDISCONNECTED? ' 

|DISC»#^ECTED ERROR 
jRETUi^ 



:;TRY READ TO MAKE SURE IT IS A PROFILE Af^D GET DB/ICE CHARACTERISTICS! 



32 



BSR 


WAIT NBI 


TST 


SO 


BEQ.S 


DOIT 


HCvfE 


STIME ERR, DO 


BRA 


BSYXT 


BSR 


STRTRO 


BEQ.S 


GOT IT 


BSR 


WAIT NOTBUSY 


BSR 


STRTRD 


BEQ.S 


60TIT 


BSR 


DORESET 


BSR 


mil NOTBUSY 


BSR 


STRTRD 


BEQ.S 


OOTIT 


TST.U 


STATUS+2(A3) 


BPL.S 


8SYXT 


BSR.S 


WAIT NOTBUSY 


SSR 


STRTRD 


BNE.S 


BSYKT 



fWait for device not busy 
jTimeout? 

iTiiBeout error - give up 



{begin read operation 

jskip if successful 

felse wait for not busy 

^and try again 

iskip if OK 

;else try doing reset 

jwait until ready 

;and try again 

•jSkip if successful 

jcheck if reset error 

jerror if not 

lelse wait for not busy 

'.and try final time 

;give up if still no good 



GOT IT HOMEQ itl3,D0 

i2 nmi.B IRA(A4),D1 

DBF DO, 32 

HO'vJE.B IRA(A4),DRiyETYPE<A3) 

nWEQ S2,D0 

93 M0UE.8 IRA(A4),D1 

DBF DO, 33 



sRead 14 bytes 



jRead next byte as drivetype 
iRead 3 bytes 



;Save drive size in drive queue element 
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iset offset ptr to drive queue element 

I ignore first byte 

isave last 2 bytes of size 



HOMEQ IIDI3EL,D2 

10UE.8 IRA(A4),O0 

HCFv'E.B IRA(A4),DQDRVSI2E(A3jD2) 

NOVE.B Ii?A(A4),DQDRMSIZE4HA3,D2) 

HCWE.y DQDRUSI2E(A3,D2),REALSI2E<A3) jsave copy also 

;Set as non-ejectable disk 

Hffv'EQ JtStopEJect,DO 

OR.W 00,INF01<A3) ;set indicator 

^Finally add drive to drive queue if not already there 



HOVE.W OR!VE(A(i),Di 

HOVE.L OrvQHdr+QHead,D( 

34 BEQ.S 36 
HI^E.L DO,AO 

mP.U DQDpive(A0),O! 

BEQ.S 37 

35 HQME.L QLink(AO),DI} 
BRA.S 34 

96 HOgE.W D1,D0 

SWAP DO 

MWE.U DCtlRefNunt(Al),I 

LEA DQEL(A3) ,A0 
__AddDr!ye 

37 HOMEQ «0,D0 

BSYXT CLR.B DDRA<A4) 

ORI.B «$18,0RB<A4) 

BYE HIWE D0,ERROR(A3) 

HOMEQ #0,D0 

RTS 



get drive # 
find the drive queue 
skip if no more entries 
else get entry ptr 
drive installed in this entry? 
skip if yes 
else get next entry ptr 



;get drive i 

add driver refnuni 

set ptr to drive queue element 

go put into queue 

fError code = 8 

; Set Port A bits to input 
; set dir=in, cmd=fal5e 

J save result 
jreturn now 



jPoll until device not busy or tinteout 
{Registers used = DO, DI 
;Output - DO = OK to continue 
; = 1 Timeout 



!J=!n_NOTBUSY 

HOVE.L URDTIME.Dl 

BRA.S UAITCHK 

WAITJBl 

MOUE.L ItSTRniMEjDl 

miizm 

nmEQ no, DO 

3! BTST ltl,lRB(A4) 

Si^lE.S 32 

SyBQ.L »1,D1 

BNE.S 3i 

MOVEO #1 ,D0 



jnorjual wait time (about 8 sees) 
jpower-up time (about 3 mins max) 



;0K to continue 
•jBusy? 



jTIMEOUT 
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RTS 



•.POLL UNTIL DEVICE IS BUSY FOR 32 CHECKS IN A ROW 
jRegisters used = DO, Di 
jOutput - DO = OK to continue 
; = 1 Timeout 



mil BUSY 






mm 


HO, DO 


;0K to continue 


HOUE.L 


I»RDTIME,D1 




31 BTST 


«1,IRB(A4) 


|Not Busy? 


BEQ.S 


32 




SUBQ.L 


«1,D1 




ME.S 


31 




rWEQ 


Hi, DO 


•JIMEOl/T 


32 RTS 






« — --- 

; Do read operation 




; Registers used = DO, D2 




STRTRD HQUEQ 


ltl,D2 


lExpected response 


BSR.S 


DOSf^KE 


",Do hand shake 


Ef€.S 


STRTXIT 


jskip \i error 



iSet Device Characteristics 



GTTYP 



MOyEQ 


ffO,DO 


jassurae no error 


nOVE.B 


D0,ORA<A4) 


;Co(ffBand=Read 


NOP 






HOME.B 


Jt$FF,0RA(A4) 


iRead sector = $FFFFFF 


HOUE.B 


«*FF,0RA(A4) 




HO^,?EJ 


♦}fFF,0RA(A4) 




HO^JEJ 


«$0A,ORA(A4) 


•jRetry count 


rWE.B 


D0,0RA(A4) 


{Sparing threshold 


HOMEQ 


112,02 


•jExpected response 


BSR 


DOSHAKE 


jOo hand shake 


m£.s 


STRTXIT 


;skip i^ error 


CLR.B 


DDRA(A4) 


;Set Port A bits to input 


ORl.B 


l$18,0RB<A4) 


;set dir=in; cmd=fa1se 



HOUE.B IRA<A4),STATUS(A3) 

MOME.B I l^(A4), STATUS* HAS) 

HOME.B IRA(A4),STATUS+2(A3) 

MlM.B IRA(A4),STATUS+3(A3) 



iRead 4 bytes of status 





MiM.L 


»$Ci40C000,DO 


',check for fatal error 




AND.L 


STATUS(A3),D0 


;setup exit result 




BEQ.S 


STRTXIT 


lexit if OK 




HOME 


HHD ERR, DO 


jelse set error code 


8TR1 


XIT RTS 




jand return 



I Handshake routine 
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J Input - D2 = Expected response 
\ - A4 = Hardware Base Address 

I Output- DO = error « (=0 if OK) 



l Exits 


with dir=out, Port A to output, cnid=4a]5 


DOSf^KE ANDI.B 


l»EFfORB(A4) 


5Cni*=true 


ORI.B 


«*|}8,0RB(A4) 


;Set dir = in 


CLR.B 


mmiM) 


jSet Port A bits to input 


8SR 


mujm 


jWait for device to go busy 


T3T 


DO 


jTirseout? 


SEQ.S 


GTRSP 


;Skip if OK 


HilUE 


#TIMEJRR,DO 


jTiiueout error 


RTS 




fExit early 


eiRSP MOME.B 


P0RTA<A4) ,DI 


|Get response 


mm .B 


tl$E7,0R8(A4) 


*,Dir=out5 cnid=true 


NOME.B 


#fFF,DDRA<A4) 


jPort A to output 


CMP. 8 


D2,D1 


iCompare response 


BNE.S 


RS BAD 


;SKip If bad response 


Hff^E.B 


«*55,P0RTA(A4) 


{Send OK reply 


ORl.B 


«$10jORB<A4) 


;0id=fal5e 


BSR 


WAITJOTBUSY 


|Uait for not busy 


TST 


DO 


jTinieout? 


BEQ.S 


31 




MWE 


JITIME ERR, 00 


1 timeout error 


ii RTS 






RS_BAD |bad response 




HOME.B 


#*AA,P0RTA(A4) 


;Send negative reply 


ORI.B 


«$10jORB(A4) 


;0rRd=fal5e 


BSR 


WAIT NOTBUSY 


jWait for not busy 


HOME 


«RESP ERR.DO 


jBad response error code 


RTS 







; Routine to do controller reset 

; Assumes AO = base address for reset port 



OORES 


lET ANDI .B 


lt$7F,ORB(A0) 


;set reset signal 




HMQ 


#*7F,D0 


jdelay for about .1 sec 


31 


SOBQ 


Hi, DO 






BNE.S 


31 






ORI.B 


»$80,ORB(A0) 


jremove reset signal 




RTS 




;and exit 



.END 
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File: HWiount.Text 



Hard Disk Driver Mount Routine 

E^ritten by Rich Castro 

This progpara attempts to rsount a disk. 

Hodif ication History: 
3 May 84 ROC Write initial version 
U May 84 RDC Add disk size check be-fore trying mount 
13 Noy 84 KUK Check for yolume already mounted error 



.NOLI ST 

.INCLUDE TLASM-SYSEQU.TEXT 

.INCLUDE TLA^-SYSHACS.TEXT 

.INCLUDE TLASM-SYSERR.TEXT 

.INCLUDE TLASM-TOOLMACS.TEXT 

.INCLUDE TLASM-TOOLEQU.TEXT 

.LIST 



NoDrvErr 


.EQU 


4 


HoSpace 


.EQU 


6 


HinSize 


.EQU 


400 




smz 


HDMountjO 



5no drive found 

;no space available on drive 

fminiraum it of blocks for creating Mac disk 



; on entry 4(SP)=re5ult 

; nm try to mount hard disk if one was found 

I first search drive queue for default drive 

m^EH itHDDrivejDl ; drive we're looking for 

HOyE.L DrvQHdr+QHeadjDO ; find the drive queue element 

32 BEQ NoDrvFnd ; exit if drive not found in drive queue <]ast Qlink = 0) 
Hffv'E.L D0,A1 

mP.W DQDrive(AI),Dl ; this entry? 

BEQ.S i4 ; br if so 

HO'.'E.L QLink(Al),DQ 

BRA.S 22 

34 CMPI.W «MinSize,DQDrvSize(Al) jenough space available on disk? 
BLT.S SpaceErr |exit if not 

; found it - create parameter block and try to mount it 

33 Mffv^EQ #<I!WQEISize/2>-l,D0 

3! CLR.U -(SP) ; clear a parameter block on the stack 

DBRA DO, 31 

HiM.L SPjAO ; set ptr to parm block 

MOyE.L DQDrive(Al),IODrvNum<A0) \ fill in lODrvNum, lORefNum 
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MountMol 



ADO 


«lWQElSize,SP 


restore stack 


CHP.W 


#yo1QnLinEpr,D0 


already mounted? 


BHE.S 


HDKXIT 


no, return w/result 


MOMEQ 


itD,DO 


no error 


BRA.S 


HOHXIT 


and exit 



exit with results 



NoDrvFnd 


HOMEQ 


«NODr«Err,D0 


|set no driye er 




BRA.S 


HDMXIT 




SpaceErr 


MOUEQ 


tJcSpace,DO 


jset space error 


HDHXIT 


MOUE.L 


<SP)+,AO 


iget ret addr 




HWE 


DO,(SP) 


jsave result 




JHP 


(AO) 


;and return 



.END 
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; -Me HUH nstall-MWI/MountTable. text 

? Monitor mount table/volume entry -for MacUorks profile 

5 

; f'4odi f i cat i on History 

: 29-0ct-S4 New Today 



.LONG Q,OsO, 0,0, 0,0, 0,0, 0,0, 0,0,0 | 0..$37 Reserved 

.BYTE 7 ; $38.. ^3F (length of name) 

.ASCII -'KRUGLER-' ; Name o-f disk 

; Hount table. Each entry is 4 bytes long and corresponds to 
; the unit entries 0..20. Bits 31 . .29 = drive number, 28. .16 

= -first block #./8, 15 = write protect bit, 14. .13 = O's, 

12..0 = one past last block #/8. 

The HacWorks image is unit #5 

.LONG 0,0,0,0,0 ; Unit #-'5 0.. 4 

•WORD *2001 ; Drive 1, start block = 8 

.WORD *0065 ; No WrtProt, last blk+l = SOS 

.LONG 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ', Unit #'s 6. .20 

.BLOCK 108,0 I 108 O's to fill to *FF 

? Uolume entries. Each entry is the same as a mount table entry. 
; The MacUlorks volume is the -first one 

.yORD $2001 ; Drive 1, start block = 3 

.WORD $0065 ; No WrtProt, last blk+1 = 808 

; The marker for no more volume entries has drive # = 7 and all else = 

MORD $E000 •, Drive 7, rest = 

.yORD $0000 ; 

.BLOCK 248,0 ; fill rest of 256 bytes yith 

; al 1 zeros 



File: HDskOpen.Text 



Hard Disk Driver Boot Routine 

written by Rich Castro 3/18/84 

This progrsi is executed at systen in it time on a Lisa system 
running MacUorks. It uses the HDQpen routine which checks for hard 
disks attached to the Lisa and mounts them for use. H any errors 
occur, the program aborts with the error code in DO. 

Modification History! 

Add support for Lisa>1iac disk sharing 

Add calls to deallocate INIT routine when done 

Add code to switch to hard disk as new boot device 

Change disk driver id to 1 

Add code to check for driver already installed 

Change driver name to .HardDisk 

Skip controller init if driver already installed 

Equate cleanup 



3 May 84 


ROC 


15 May 84 


RDC 


11 Jun 84 


RDC 


21 Jun 84 


RDC 


21 Jun 84 


RDC 


21 Jun 84 


RDC 


2 Jul 84 


RDC 


U Oct 84 


KUK 



.NOLIST 

.INCLUDE TLASM-SYSEQU.TEXT 

.INCLUDE TLASM-SYSmCS.TEXT 

.INCLUDE TLASM-SYSERR.TEXT 

.INCLUDE TLASM-TOOLMACS.TEXT 

.INCLUDE TLASM-TOOLEQU.TEXT 

.LIST 



SYSID .EQU 


$400009 


LisalD .EQU 


$FF 


NotLisaEr .EQU 


1 


OpenDErr .EQU 


2 


ResrcErr .EQU 


3 


NoDrvErr .EQU 


4 


InitDErr .EQU 


5 


AllResfiles .EQU 






;system ID location 

;ID for Lisa running MacUorks 

inot Lisa error 

|open driver error 

iget resource error 

|no drive found 

5 in it controller error 

{resource mgr code for all res files 



.PROC HDskOpen,0 

} first test to make sure we're running on a Lisa system 

MOMEM.L D2-D7/A2-A6,-<SP) {preserve registers 

MWE.B SYSID,DO jread system id 

CHP.B ILisalDfDO ;is it a Lisa? 

BNE NotLisa ;exit if not 

; we're on the right system - allocate space for parameter block 

LEA PAR^BLK,AO |ptr to save area 
MOVEQ lt<IOFQElSize/2>-l,D0 
31 CLR.W -(SP) I clear a parameter block on the stack 
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DBRA 



,31 



MQME.L SP,(AO) } save for 10 calls 
; next check to see if driver already opened <by new MacUorks) 



HOME IIHD5kID,D2 

ASL.U 112,02 

HOME.L UTab]eBase,Al 

HOME.L 0<A1,D2.W),D2 

BNE HDOXIT 



driver id 
iiuUiply by four 
get address of unit table 
add in the offset 
exit if driver already installed 



I driver not installed - let's try to open it 

310 LEA HDDNa{ie,Al ;setup ptr to name 

HQi^E.L Al,I0Fi1eNanie<SP} ; save in paran block 

CLR.B IOPernssn<SP) | r/w permissions 

MWE.L SPjAO 

_Open I open it! 

BNE OpenFail ; exit if open error 

I Open worked - do detach resource to ensure we don't get purged 

lt4,SP 



SUBQ 
HOVE.L 
HOME «HD5kIDr<SP) 

GetResource 



«'DRVR',-<SP) 



MWE.L (SP),A2 
MWE.L A2,D0 
BEQ ResrcFail 
DetachResource 



iraake roou for result 
jsetup type 
; and id 



;save handle 

;set condition code 

jexit if didn't get it 



I all OK so far - now init the drive's controller and add to drive queue if found 
320 



MOVE.L 


ParamBlk,AO 


get ptr to parait block 


MOgE.U 


«HDOrive,IODrvNuni<AO) 


set for builtin drive 


MOUE.W 


itInitCode,CsCode<AO) 


request controller init operation 


_Control 




do as Control call to driver 


fsT 


DO 


check result 


BEQ.S 


34 


skip if OK 


CHP.W 


liNODriveErr,DO 


no drive found? 


BEQ 


NoDrvFnd 


exit if yes 


CMP.U 


ULisaDskErr.DO 


Lisa disk found? 


BEQ.S 


34 


OK - try to raount to see if shared disk 


BRA 


InitFail 


else go to general error 



; now try to reount hard disk if one was found 

34 MOUEQ IIHDDrive,Dl | drive we're looking for 

MOMEQ tlNSDrvErr,D3 ; assume we can't find it in the drive q 

; search drive queue for default drive (HDDrive) 

HOME.L DrvQHdr+QHeadjDO ; find the drive queue element 
32 BEQ NoDrvFnd ; exit if drive not found in drive queue (last Qlink = 0) 
MOME.L D0,A1 
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CMP.W OQDrive<Al),Dl 

BEQ.S 33 

HOME.L QLini«Ai),DO 



I this entry? 
J br if 50 



; found it - let's try to mount it 

33 MOUE.L DQDpive<Al),IOOrvNum<SP) ; fill in lODrvNure, lORefNura 
MOME.L ParaniB1k,A0 ; set ptp to parre block 
HountVol 
BNE.S HDOXIT ; exit if error 

; mounted, now let''5 try to switch oyer to the system file 
; First, make sure the hard disk has SYSTEM and FINDER files 

lea Systemname,al 
nove.1 al,ioFi1eName(aO) 
clr.w ioFOirlndex(aO) 
clp.w ioFi1eType<aO> 
JetFilelnfo 
bne.s HDOxit 

lea Fndrname,a! 
move.] a},ioFi1eName(aO} 
clr.w ioFDirlndex(aO) 
clr.w ioFileType<aO) 
JetFilelnfo 
bne.s HDOxit 

I both SYSTEM and FINDER are on the disk, so now we can switch over to them 



MOME.L ParamBlk,AO 
CLR.L lOWPtr(AO) 
JetVol 

MtWE.U llAllResFiles, -(SP) 

_CloseResFile 

CLR.L ResErrProc 

SUBQ it2, SP 
_InitResoupces 
ADDQ }I2, SP 
InitFonts 



set ptr to papm block 
don't use volume name! 
Set default volume=system. 

Push allResFile ID 
and close them all! 
Don't bothep with eppops 

Save space fop integep pesult 
In it the pesoupce raanagep 
Ignore pesult code 
Initialize the font mgp 



MDUE.U ltHDDpive,BootDpive ; Reset the bootDpive global 
BRA.S HDOxit 



; exit with pesults 

NotLisa MOMEQ 
BRA.S 

OpenFail MOMEQ 
BRA.S 



i^otLisaEr,DO 
HDIXIT 

»OpenDEpp,DO 
HDOXIT 



InitFail MOMEQ «InitDEpp,DO 



;set eppop code 
|set eppop code 
;set eppop code 
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BRA.S 

ResrcFail MWEQ 
BRA.S 

NoDrvFnd MOMEQ 

HDOXIT ADD 



HDOXIT 

IIRe5rcErr,D0 
HDOXIT 

«NODrvErr,00 

}IIOFQElSize,SP 



}set error code 

|set error code 
jrestore stack 



; release the program space before exiting 



HDIXIT 


HOVE.L 


DO,-<SP) 




LEA 


HDskOpen,AO 




^Recover Handle ,SYS 




HUnlock 






BNE.S 


31 




JPurge 




3! 


MtWE.L 


(SP)+,DO 




MWEM.L 


(SP)+,D2-DZ 




RTS 




; data area 




PARAMBLK 


.LONG 





HDDNarBe 


.BYTE 


9 




.Asc i i 


'.HardDisk' 


SysteniNani 


e .BYTE 


6 




.Asc i i 


'SYSTEH' 


Fndrname 


.BYTE 


6 




.Asc i i 


'FINDER' 



jsave return code 

{get ptr to start of code 

;get handle 

jtell raefBory nanager to unlock 

5skip if error 

;and make routine purgable 

jrestore return code 
{restore other regs 
,*and return 



;ptr to paran block 
;# of bytes in name 
ffilenafse of driver 



.END 
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File: HDOpen.Text 



j Hard Disk Driver Open/^ount Routine (also check \i on hard disk) 

; written by Rich Castro 

f 

; This prograra opens the hard disk driver ^or use on a Lisa systeis 

; running HacWorks, Following a successful open, the hard disk is 

I also mounted for use. Errors are returned for the follcwing cases; 

; 1) Hot a Lisa systera 
; 2) Open driver failure 
; 3) Hount drive failure 
; 4) iMo disk found 
< 

story: 

Write initial version 

Add no disk found error 

Add check to see if driver already open 

Add Control call for init device 

Add fetch of driver refnum if already open 

Allow init error to return actual error code from driver 

Change not Lisa error code (conflicts with UserCancel code) 

Change disk driver id to 1 

Change driver name to .HardDisk 

Add preliminary check to see if drive already mounted 

Constants cleanup 

Stripped all code dealing w/driver installation k drive already mounted stuff 

Moved Lisa equates to tlasra-sysequ.text 

Change MacWorks revision check to allow rev C or later ()= $BOFF) 

; To add: return indication to caller of drives successfully mounted 



} Modification Hi 


; 8 Har- 84 


RDC 


I 18 Har 84 


RDC 


; 26 Har 84 


RDC 


•, 9 Apr- 84 


RDC 


; 10 Apr 84 


RDC 


; to May 84 


RDC 


; 14 May 84 


RDC 


\ 21 Jun 84 


RDC 


; 21 Jun 84 


RDC 


; 18 Jul 84 


RDC 


I 26 Oct 84 


KUK 


\ 9 Nov 84 


i<UK 


1 12 Dec 84 


KWK 


; {\m^rB5} 


RDC 





.HOLIST 








• INCLUDE TLASM-SYSEQU.TE)CT 






.INCLUDE TLASM-FSEQU.TE)a 






.INCLUDE TLASM-SYSMACS.TEXT 






.INCLUDE TLASM-SYSERR.TEXT 






.INCLUDE 


TLASM-TOOLMACS.TEXT 


' 




.INCLUDE TLASM-TOOLEQU.TEXT 






.LIST 






OpenDErr 


.EQU 


2 


;open driver error 


ResrcErr 


.EQU 


3 


jget resource error 


NoDrvErr 


.EQU 


4 


;no drive found 


NtLisaErr 


.EQU 


5 


jnot Lisa error 


NiRevCErr 


.EQU 


7 


inot Rev C error 


QnHDiskEr 


.EQU 


8 


{running on a hard disk error 



.tlMZ HDOpen,0 

;, on entry 4(SP)=re5ult 

\ first test to make sure we're running on a Lisa system 
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MOUEM.L D2-D7/A1-A6,-(SP) fpreserue registers 

HOyE.y SYSID.DO I read system id 

CHP.B «LisalD,DO i\s it a Lisa? 

BHE NotLisa jexit i-f not 

; on a Lisa, check version number of macworks 



m.U «RevCID,DO 
BLO NotRevC 



',\z it a RevC op later MacUorks? 
lexit if not 



<!8Apr85> 
<18Apr85> 



norf check if we're running on a hard disk 



nmEM CurApRefnum,DO 

mJE.l FCBSPtr,AO 

nmE.l FC^Ptr(Afl,DO.W),AO 

Hffv'E.W 'v!CBOrefnum<A0),D0 

CHP.U »HDRfNura,DO 

BEQ OnHDisk 



get the application file refnuffi 
get ptr to file control block start 
get ptr to volume control block 
get volume driver refnum 
is it the hard disk driver? 
yes, exit w/error 



; everything is cool so far - allocate space for parameter block 



LEA PARAMBLKjAO jptr to save area 

MOUEO ll<IOUQElSize/2>-l,D0 

31 CLR.y -(SP) 'f clear a parameter block on the stack 

DBi^ DO,il 



nmE.l SP,(AO) 



I save for 10 calls 



driver has been installed by Rev C boot disk & disk unmounted before we get here 
Set up the DCE handle 



HI^E.W ilHDskID,D2 

ASL.y «2,D2 

HfJv'E.L irrableBase.Al 

Ha'E.L 0(Ai,D2.U),D2 



driver ID 

get offset into unit table 
get ptr to unit table 
get handle 



; drive not mounted - do setup for device initialization 

312 MO^'E.L D2,A1 j get DCE handle 

HiM.L (Al),Ai I and dereference 

liOUE.L ParamBlk,AO ; get ptr to param block 

nmEM DCtlRefNum<Al),IORefNum(A0) j get driver refnum 

', na« init the drive's controller and add to drive queue if found 



320 



Hffv/E.L 
,m'E.W 
HO'^^E.y 
_Control 

TST 

BEQ.S 

CMP.y 

BE8.S 

BRA.S 



PararaBlkjAO jget ptr to param block 

JllnitCode,CsCode(AO) jrequest controller init operation 
ltHDDrive,IODrvNum(AO) jonly for built in drive for now 
;do as Control call to driver 



34 

tt'lODriveErrJ 
NoDrvFnd 
HDOXIT 



jcheck result 

jskip if OK 

|no drive found? 

;exit if yes 

lelse go to general error 
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J new try to mount hard disk if one was found 



m 



HWEQ «HDDri'je,Dl 
mm ilNSDrvErr,D3 



f drive we ''re looking for 

; assume we can't find it in the drive q 



search drive queue for default drive (HDDrive) 



MWE.L DrvQHdr+QHead,! 

8EQ NoDrvFnd 

nmi.l DO,Ai 

CHP.y D9Dpive(Al),01 

BEQ.S i3 

HQVE.L QLink(Al),DO 

BRA.S 32 



I find the drive queue element 

; exit if drive not found in drive queue (last Qlink = 0) 

; this entry? 
; br if so 



; found it - let's try to mount it 

33 HWE.L DQDrive<AD,IODrvNurB<SP) ; fill in lODrvNura, lORefNum 

; set ptr to pam block 



nmiX PararnBlk.AO 
HountMol 
BRA.S HDOXIT 



I exit with results 

Hotlisa MWEQ 
BRA.S 

NotRevC MWEQ 
BRA.S 

OnHOisk HOMEQ 
BI^.S 

HntErr MOUEQ 
BRA.S 

OpenFail MOyEQ 
BRA.S 

ResrcFail MOMEQ 
BI^.S 

NcDruFnd MOUEQ 

HDOXIT ADD 



«NtLisaEpp,DO 
HDIXIT 

«NtRevCErr,DO 
HDIXIT 

«OnHDiskErr,DO 
HDIXIT 

f^olOnLinErr.DE 
HDOXIT 

ilOpenDErr,D0 
HDOXIT 

«Re5rcErr,D0 
HDOXIT 

IINODrvErr,D0 

«IIWQElSi2e,SP 



•f exit with result in 

jset error code 

|set error code 

jset error code 

;set error code 

jset error code 

55et error code 

jset error code 
;restore stack 



HDIXIT MOVEM.L <SP)+,D2-D7/A1-A6 ^restore regs 

HQUE-L (SP:h,AO jget ret addr 

HOME DO,(SP) jsave result 

m? (AO) jand return 



\ aata area 

PARAHBLK .LONG 
HDl^ame .BYTE 



iptr to pararii block 
;# of bytes in name 
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.Ascii '.HardDisk' jfilenaiBe of driver 
.END 
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?i1ej HOFornsat.Text 



Hard Disk Forraat Routine 

written by Rich Castro 

adapted irm Disk Initialization Package by Larry Kenyon 

This proqrara formats the hard disk. 

Assumotion made that hard disk driver installed before this program 
:5 called. 

Stack usage as follows (as offset frcm stack ptr after LINK)! 



10 


Function result 


8 


Disk type 


4 


Return address 





Old A6 


-4 


Stack Buffer ptr 


-8 


ParMBeter block ptr 


-10 


Save of new mount error 


-12 


Save of drive » (Unused???) 


-14 


Disk type (Unused???) 


-16 


Drive queue element ptr 


-IS 


Dialog result code 


-22 


Save of caller's grafport 


-534 


Buffer area for writing directory 


-598 


Parameter block area 



Modification History: 

Write initial version 

Move driver open/mount code to HDOpen routine 

Hake into a Pascal callable routine 

Change directory initialization parameters 

Remove _Eject calls which don't make sense for hard disk, add 

change of cursor displayed as needed 

Add fix for bus error caused by InitCursor call 

Change allocation block size to 4K (8 blocks) 

Add support for reinitialize of Mac disk 

Add support for reinitialize of Lisa disk (erase crad) 

Increase max file directory size to 148 blocks (1036 files) 

Add drive type parameter 

Add fix for directory calculations 

Add second fix for write directory routine to allow 1 block MDB 

Delete initialize dialogs? moved to HDUtil for easier manipulation 

Add time calculation for format operation 

Add set of watch cursor while directory being written 

Added setup of vol/driver refnums before UnMountVol/Control calls 

Moved disk naming/directory writing stuff to HD./Name 

Removed error/disk type parameters, cleaned up equates 

Partial replace of disk type for physical format of entire disk. 



? Mar 84 


RDC 


9 Mar 84 


RDC 


12 Mar 84 


RDC 


20 Mar 84 


RDC 


26 Har 84 


RDC 


7 Apr 84 


RDC 


9 Apr 84 


RDC 


11 Hay 84 


RDC 


15 Hay 84 


RDC 




RDC 


U May 84 


RDC 


24 Hay 34 


RDC 


29 May 84 


RDC 


6 Jun 84 


RDC 


7 Jun 84 


RDC 


18 Jun 84 


RDC 


9 Nov 84 


KWK 


17 Nov 84 


KWK 


1? Nov 84 


KUK 


18 Nov 34 


KUK 



.NOLI ST 



I Date 5.'Mar/85; File -}l2»2-HD/F0RmT .TDai Page 1 



.INCLUDE 
.INCLUDE 
.INCLUDE 
.INCLUDE 
.INCLUDE 
.INCLUDE 
.INCLUDE 
•INCLUDE 

.Lie! 



TLASM' 

iiAm 

TLA^- 
TLA^' 
TLASM' 
TIASM 
TLASH' 
TLASM' 



■SYSEQU.TEXT 

■SYSMACS.TEXT 

■SYSERR.TEXT 

■QUI CKMACS. TEXT 

■TOOLMACS.TEXT 

-TOOLEQU.TEXT 

■RESEQU.TEXT 

■FSEQU.TEXT 



.PROC HDForniat,! 



WaitDiloQ 


.EQU 


143 


OKBtn 


.EQU 


2 


BasDriue 


.EQU 


4 


tpaseCmd 


.EQU 


31 


BUnkDisk 


.EQU 





LiiaDisk 


.EQU 


1 


HacDisk 


.EQU 


2 



ixFOB 



EQU 148 



DskType 


.EQU 


8 


EriseJyp 


.EQU 


CSParans+4 


DUkSize 


.EQU 


20 


PhyErase 


.EQU 





iDgErase 


.EQU 


1 



tor local storage 



StackBul 


.EQU 


-4 


lOPBlk 


.EQU 


StackBu4-4 


HountErr 


.EQU 


IOPBlk-2 


Mount Dry 


.EQU 


HountErr-2 


OiskType 


.EQU 


HountDrv-2 


DQEIPtr 


.EQU 


Di5kType-4 


OlogResuU 


.EQU 


DQElPtr-2 


OldPort 


.EQU 


Dlo9Re5u1t-4 



}ID lor wait dialog 

;0K button item It in dialogs 

jdrive M for drive on builtin port 
jtpase entire disk cnsd for driver 

jforniat physical disk 

jfornjat logical disk (shared with Lisa OS) 

jformat logical disk (shared with MacWorks) 

jniax file directory blocks allowed (about 1036 files) 

;offset frcm M to disk type parara 

{offset to erase type (all or shared) parameter for erase call 

joffset into CSParare record for physical size of disk 

{physical erase, ie. erase complete disk (physical size) 
{logical erase, ie. erase logical disk, using offset 



save for buffer pointer 

ptr to parameter block area 

save of new mount error 

drive S we're looking for 

drive type 

drive queue element ptr for this drive 

result from modal dialog 

save area for caller's grafport 



Start LINK A(S,S01dPort ; reserve space for locals, save AA 
H0'>;EM.L D3-D7/A2-A5,-(SP) { preserve registers 



{ get space for a parameter block 



iO 



HWEQ «127,D0 

CLR.L -(SP) 

DBRA DO, 30 

HWE.L SP,StackBuf(A6) 

HOMEQ #<I0yQElSize/2>-l, 

CLR.U -(SP) 

DBRA DO, 31 



{ clear a buffer area on the stack 

; buffer for init, wrdir calls 

! 

{ clear a parameter block on the stack 
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HO^'E.L SP,IOPBlk<A(S) 

lLR MountEpr<A^) 

HCvSEQ SBasDr-ive.Di 

HWE DI,MountDpv(A6) 

HWEO flNSDr«Err,D3 

HD^v'E.L DrvQHdp+QHead,D( 

BEQ HDIExit 

MOUE.L D0,A2 

QiPM DQDri«e(A2),Dl 

BEQ.S 33 

MWE.L QLin!«A2),00 

BRA.S 32 

HOyE.L A2,DQE]Ptp(A6) 



IQPBIk for 10 calls 
no error yet 
drive we're looking for 
save it 

; assunie we canM find it in the drive q 

; find the drive queue elenient 

; exit if drive not found in drive queue 

,• this entry? 
I br if so 



; setup 
FirstDia 



31 



I save ptr 

HOVE.L DQDrive(A2),I0DrvNuni<SP) ; fill in lODrvNuns, lORefNura 

for doing dialog 

log 

CLR.L D2 

CHP.y »BlankDiskjD5kType<A6) ; is the request to completely zero the disk? 

I nope, use logical disk size (ie. physical size - offset! 



€.S 31 



', set up 10 ptr 



MOUE.L 10PBLK(A6),AO 
HOyE.U #DrvStsCode,CSCode(AO) \ get real size of disk 
Status 



LEA CSParaiT!(AO),AO 

MOyE.U DiskSize(AO),DO 

BRA.S 32 

HOME.U DQDrvSize(A2),D£ 

MQMEQ #90,01 

DIUU D1,D0 

HOME.W DO, 02 

CLR.L DO 

HOyEQ «60,D1 

DIVU D1,D2 

nWEM D2,D0 

CLR D2 

Sl*^P 02 

ADDQ #5,02 

H0^;EQ ItlOjOl 

dm 01,02 

MULU 01 ,02 

HOUE.L StackBuf(A6),A0 

CLR.W -<SP) 
Jack? 

tWl.l A0,A1 

HOME.L 02,00 

HOUEQ #16,01 

ADD.L Oi.AO 

CLR.W -(SP) 



; get ptr to returned values 

I get physical (actual) size of disk 



get logical drive size (physical size - offset) 
format at about 90 blocks per second 
cwnpute total seconds 
save it 

I convert to rainutes, seconds 

I save roinutes in DO 

•f round seconds next higher 
; multiple of 10 

\ 02 now has seconds 

5 use stack buffer for string conversion 
I call _NumToString to convert minutes 

; Al has ptr to minutes string 

; get seconds 

\ offset buffer ptr 

; use _NumToString 
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Pack? 



,• AO gets ptr to seconds string 



HC>/Bi.L AO/AI,-<SP) 
CLR.L -(SP) 
CLR.L -(SP) 
_ParMText 

; nm allocate the dialog 

CLR.L -(SP) 

m^£M i>!laitDil09r(SP) 

CLR.L -(SP) 

HWEl Kinu50ne,-<SP) 

jSetNewOialog 

Mff^E.L (SP), A4 
PEA oldPopt(A6) 

j3etPort 
Set Port 



j setup minutes, seconds string 
; NIL -for parnts 3 and 4 

; voila! 



I space for result 

; our unique ID 

; use heap storage 

} put it up in front 



; get new dialog pointer, leaye for SetPort 
', save oldPort 

; and start writing in dialog window 



FifitDialog 



31 



HQ'v'E.L I0PBlk(A6),A0 ; get ptr to paraiD blk 

m-JEM «HDDrive,IOMRefNuni(AB) ; set up volume number 

MffJE.U SHDrfnuffi,IORefnuni(A0) | set up driver refnure 



UnMountyol 



HOME.L A4,-(SP) 
_DrawDia]og 
LEA MyFilter,^ 
8SR GoDlog 



3SR 



Format 



J unmount old drive (flush the volume) 

; ignore errors (already unmounted, no such volume, etc) 

get dialog ptr 

and draw dialog 

filter proc passes back on null 

call HodalDialog 

I try formatting and zeroing it (error returned in D3) 



nmE.l oldPort(A4), -(SP) ; push old port 



JetPort 

nWE.l A4, -(SP) 

_D{5posDialog 



; restore it 

; get rid of dialog and item list 



; exit format... error passed in D3, cleans up stack and unlinks A<S, then returns 



HDIExit 



!ioD * og 



MOME.U D3,D0 

ADD «<512+I0UQElSize>,SP ; clean up stack space . . . 

MOMEH.L (SP)+,D3-D7/A2-A5 ; restore regs 

iJNLK M 



MOME.L (SP)+,AO 


; get return address 


ADDQ #2,SP 


; strip off parms 


HOgE.W DO,(SP) 


; save result 


JMP (AO) 


; return to caller . . . 


HOME.L AO,-(SP) 


; save filter proc ptr on 


PEA D]ogRe5ult(A6) 


1 code-sharing routine 


_Modal Dialog 




mJ£M DlogResult(A<S),DO 





Klo 
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] here's the filter proc 

Hvf liter 



MOMEH.L (SP)+,D1-D2/A0-A1 





CLR 


<SP) 




TST.W 


EytNuni'iAO) 




8NE.S 


FPExit 


FPTrue 








ADDQ.B 


81 ,(SP) 


FPExit 








HWE.L 


D1,A1 




JMP 


<A1) 



Dl-return; D2-item var 
AO-eMent add} Al-dialog add 
assume ■failure return 
null eyent? 
then return any old true 



; turn lalse into true 

; get return address 
I return 



; Routine: Format 

I Arguments: DO.y (output) -- result code (0 \i correctly formatted) 

I Function: This routine does a control call to the driver to let it 

; format and zero the device as appropriate. 



Format HOyEM.L D2-D7/A0-A6,-(SP) ; preserve all registers 

HWE.L IOPBlk(A6),A0 

HiJ'^E.W SEra5eCmd,CSCode(A0) | disk driver erase coneand 

MWE.L StackBuf(A4),CSParara<A0) 5 set buffer ptr 

MWE.U D5kType<A6),EraseTyp<A0) ; set erase type <<> => logical erase) 

31 _Control ; result returned in DO via IODW€ 

FmtExit HWEM.L (SP)+,A0-A6/D2-D7 \ restore all registers 
mJEM D0,D3 ; set CCR 

RT3 
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File: HDNanie.Text 



Hard Disk Name/write directory 

written by Rich Castro 

adapted -from Disk Initialization Package by Larry Kenyon 

A dialog is presented to the user to naioe 
the disk and a directory is then written. The disk is then mounted as a new 
device. 

Assumption made that hard disk driver installed before this program 
is called. 

Stack usage as follows (as offset from stack ptr after LINK); 

8 Function result 

4 Return address 

01dA6 

-4 Stack Buffer ptr 

"8 Parameter block ptr 

-10 Save of new mount error 

-12 Save of drive it 

-\6 Drive queue element ptr 

-18 Dialog result code 

-22 Save of caller's grafport 

-534 Buffer area for writing directory 

-598 Parameter block area 



Modification History: 

Urite initial version 

Hove driver open/mount code to HDOpen routine 

Hake into a Pascal callable routine 

Change directory initialization parameters 

Remove Jject calls which don't make sense for hard disk, add 

change of cursor displayed as needed 

Add fix for bus error caused by InitCursor call 

Change allocation block size to 4K (8 blocks) 

Add support for reinitialize of Mac disk 

Add support for reinitialize of Lisa disk (erase crad) 

Increase max file directory size to 148 blocks (1036 files) 

Add drive type parameter 

Add fix for directory calculations 

Add second fix for write directory routine to allow 1 block MDB 

Delete initialize dialogs; moved to HDUtil for easier manipulation 

Add time calculation for format operation 

Add set of watch cursor while directory being written 

Added setup of vol/driver refnums before UnMountVol/Control calls 

Stripped out of HD/Format code, removed err/drivetype pararas, etc. 



7 Mar 84 


RDC 


9 Mar 84 


RDC 


12 Mar 84 


RDC 


20 Mar 84 


RDC 


26 Mar 84 


RDC 


7 Apr 84 


RDC 


9 Apr 84 


RDC 


11 May 84 


RDC 


15 May 84 


RDC 




RDC 


16 May 84 


RDC 


24 May 84 


RDC 


29 May 84 


RDC 


6 Jun 84 


RDC 


7 Jun 84 


RDC 


18 Jun 84 


RDC 


9 Nov 84 


KUK 


17 Nov 84 


KUK 



.NOLIST 
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.INCLUDE TLASM-SYSEQU.TEXT 
.INCLUDE TLASM-SYSMACS.TEXT 
.INCLUDE TLASM-SYSERR.TEXT 
.INCLUDE TLASM-QUICKMACS.TEXT 
.INCLUDE TLASH-TOOLMACS.TEXT 
.INCLUDE TLi^SM-TOOLEQU.TEXT 
.INCLUDE TLASM-RESEQU.TEXT 
.INCLUDE TLASM-FSEQU.TEXT 
.LIST 



.PROC HDnaree,! 

NanteDilog .EQU 142 

Name Item .EQU 4 

OKBtn .EQU 2 

ChEnter .EQU $03 

ChCR .EQU $0D 

ChColon .EQU $^ 



BasDrive 


.EQU 


4 


MaxFDB 


.EQU 


148 


; for local 


storage 




StacKBuf 


.EQU 


-4 


lOPBlk 


.EQU 


StackBuf-4 


MountErr 


.EQU 


IOPBlk-2 


MountDrw 


.EQU 


MountErr-2 


DiskType 


.EQU 


MountDrv-2 


DQElPtr 


.EQU 


DiskType-4 


DIogResult 


.EQU 


DQElPtr-2 


OldPopt 


.EQU 


DIogResult -4 



ID for getting name for hard disk 
IteiB # for default hard disk name 
OK button item It in dialogs 

Ascii for 'ENTER' char 
'CR' char 
'!' chap 

jdrive S for drive on builtin port 

;max file directory blocks allowed (about 103<& files) 



save for buffer pointer 

ptr to parameter block area 

save of new mount error 

drive II we're looking for 

drive type 

drive queue element ptr for this drive 

result frm modal dialog 

save area for caller's grafport 



Start LINK A6,ll01dPort 

MOUEM.L D3-D7/A2-A5,-<SP) 

; get space for a parameter block 



iO 



I reserve space for locals, save A6 
I preserve registers 



31 



MOVEQ I1127,D0 

CLR.L -(SP) 

D6RA DO, 30 

MWE.L SP,StackBuf<A6) 

MWEQ ll<IOVQElSize/2>-l,D0 

CLR.W -(SP) 

DBRA DO, 31 

MIWE.L EF,ISPBI-K(A6) 

CLR rte^itErr(A(5) 

HIWEQ IIBasDrive,D! 

MOVE Dl,MountDrv(A6) 

MOMEQ ltNSDrvErr,D3 



; clear a buffer area on the stack 

I buffer for init, wrdir calls 

I 

; clear a parameter block on the stack 



5 lOPBlk for 10 calls 

; no error yet 

'f drive we're looking for 

; save it 

I assume we can't find it in the drive q 
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S2 



33 



NaiBeDialog 



MOVE.L DrvQHdr+QHead, 

BEQ HDIExit 

MQME.L Dfl,A2 

CHP.W DQDrive<A2),01 

BEQ.S 33 

MWE.L QLink<A2),D0 

BRA.S 32 

MOUE.L A2,DQElPtr(A6) 



I find the driue queue element 

; exit if drive not found in drive queue 

J this entry? 
} br if 50 



; save ptr 
HIWE.L DQDrive<A2),I0DrvNura<SP) ; fill in lODrvNuis, lORefNum 



CLR.L -(SP) 
MOVE.U i^anieDil09,-(SP> 
CLR.L -(SP) 
MWE.L Minu50ne,-<SP) 
GetNeuiDialog 
MWE.L (SP),A4 

MCWE.W ftNanteiteii,-<SP) 
CLR.U -<SP) 
MOME.W #100, -<SP) 
SellText 



space for result 
get naiBing dialog 
use heap storage 
put it up in front 

; save handle 

and select current text 

startsel 

endsel 



31 



TryMount 



ReniDveDlg 



JnitCursor 
LEA NaiBeFP,AO 
BSR.S GoDlog 
SUBQ.U «OKBtn,DO 
8NE.S 31 

MOVE.L A4r<SP) 
MOME.W IINanieitent,-<SP) 
PEA theType 
PEA thelten 
PEA theRect 
JetDIteni 

MOUE.L theIteni,-(SP) 
MWE.L StackBuf(A6),A2 
MWE.L A2,-<SP) 
JetlText 

MWE.L StackBuf(A6),A0 
BSR WrBlnkDir 



MOME.L I0PBlk(A6),A0 
MountVol 
iiOME.U D0,D3 



restore arrow cursor 

strip colons, etc. 

call Modal Dialog 

ok? 

loop until ok 

dialog ptr 

iteis number for the edit text 

var! type 

var: itemHandle 

var: box rectangle 



; use stack buffer for name 

; get the text 

; use stack buffer for name 

; lay down a blank directory 



; mount it before we exit . 
; check error (should mount 



MOME.L oldPort(A6), -(SP) ; push old port 



.) 



SetPort 

MIWE.L A4, -(SP) 
_DisposDialog 



\ restore it 

; get rid of dialog and item list 
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HDlExit HWE.W D3,D0 

ADD lt<5124!0<^QElSize),SP ; clean up stack space 

MOWEM.L (SP)+,D3-D7/A2-A5 5 restore regs 

UNLK A6 

MWE.L <SP)+,AO ; get return address 

ADDQ «4,8P } strip off parnis 

MOME.W DO,(SP> I save result 

JMP (AO) ; return to caller . . 



GoDlog MWE.L AO,-(SP) 

PEA D1ogResu1t<A6) 
ModalDialog 

HOUE.U DlogResu1t<A<&),[ 
RTS 



; save filter proc ptr on stack 
I code-sharing routine 



5 here's the filter proc 
NaneFP MOMEQ «2,D0 



MyFilter 



HOVEM.L <SP)+,D1-D2/A0-Ai 
CLR (SP) 



; filter colons, control keys out, 
I return on CR, Enter 

Dl-return; D2-itere var 
AO-event add; Al-dialog add 
assume failure return 



30 



CHP «KeyDwnEvt,EvtNuni(AO) j See if key event type 
BNE.S FPExit 





MWE.B 


EvtMes5age+3(A0),D0 


get Ascii 




CMP.B 


ltChColon,DO 


colon? 




BNE.S 


31 


Me don't allow colons in a disk name 




CLR.W 


EvtNun)(AO) 


so turn it into a null event 


31 


CHP.B 


ilCHEnter,DO 


; get event message 




BEQ.S 


32 


yahoo if enter 




CMP.B 


«CHCR,DO 


; get event message 


Ql 


BNE.S 


FPExit 


i exit if not enter or return 


i£ 


HOME.L 


D2,A0 


; point to item result 




MOVE.W 


IIOKBtn,(AO) 


J return OK button item 


FPTrue 










ADDQ.B 


«1,(SP) 


J turn false into true 


FPExit 










MQME.L 


D1,A1 


; get return address 




JMP 


(AD 


; return 



Routine: UrBlnkDir 

Arguments: AO.l (input) — ptr to volume name for new disk 
Function: This routine writes a blank master directory on a hard disk. 
The file directory is zeroed. 



[Date 3/Apr/86| File -i(2lt2-hd/name.TEXT] 



Page 4 



DS = disk size in 512-byte blocks (given) 

BBS = boot block size = 2 

MDB2 = copy of MDB = 2 

ABBS = allocation blk bik size = 8 (4K) 

AB = allocation blks = (DS-BBS-MDB-MDB2-FDB)/ABBS = (DS-2-MDB-2-FDB)/ABBS 

MDB = master directory blks = 1 + (D^ABBS » i2)/4096 + i<if reni>35e4) 

FDB = file directory blocks = 64 

BBS = boot block size = 2 

DSB = dir start block = 2 + MDB 

CS = dump size = 8 x ABS 

ASB = allocation start blk ^^ DSB * FDB 

ABS = allocation block size = ABBS « 512 



.Byte *D2,*D7 

.Long 0,0 

.Uord 

.Word 

.Word DSB 

.Word FDB 

.Word AB 

.Long ABS 

.Long CS 

.Word ASB 

.Long $00000001 

.Word AB 



blank file directory 
creation date, backup date 
volume attributes 
number of files 

directory start block 

length of directory in 512-byte blks 

total number of allocation blocks 

allocation block size 

clump size 

allocation block start 

next free file number 

number of free allocation blocks 



DefltName 


.Byte 
.Asc i i 
.Align 


9 

'Hard Disk' 

2 




WrBlnkDir 


MWEM.L D2-D5/A0-A3,-(SP) 


; save regs other than DO 




CLR.L 
CLR.L 


TagData+2 
TagData*6 


; master directory has 0-tags 




MDME.L 
MQME.L 
ADD 


StackBuf<A6),A2 

A2,A1 

«DrUN,Al 


1 5i2-byte stack buffer 
; dest for volume name 




MOUE.L 
BEQ.S 
TST.B 
BNE.S 


A0,D0 
30 
<A0) 
31 


; name ptr nil? 
', br if so <use default) 
1 name length zero? 
; use default if so 


30 


LEA 


DefltName,A0 




31 


CMP.B 
BLS.S 
MWE.B 


«27,<A0) 

32 

lt27,(A0) 


1 27-byte name max 
1 truncate it 


32 
33 


MOUE.B 

CMP.B 

BNE.S 


<A0),D0 

iiChColon,(AO) 

34 


; name length 
; colon? 
1 skip if not 
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MQME.B 


lt$20,(A0) 


34 MWE.B 


<A0)+,(A1)+ 


SUBQ.B 


ltl,DO 


BPL.S 


33 


MIWE.L 


A2,A0 


ADD 


il5i2,A0 


35 CLR.B 


(Al)+ 


CMP.L 


AO,A] 


BLT.S 


35 


FigDiskSize 




MOMEQ 


iiO,D3 


HOME.L 


DQE1Ptr<A<i),Ai 


HOME.W 


DQDruSize<A}),D3 


SetHstrlnIo 




MOUE.L 


A2,A0 


MOVE.W 


ltfD2D7,(A0)+ 


MOME.L 


Tiiie,(AO)+ 


MWE.L 


Tin!e,(AO)+ 


CLR.L 


<AO)i 



Set directory parameters 
MWE.L D3,D2 



31 



; replace with a space if so 
; transfer the nane 



I buffer's end 

; zero the rest of the buffer 



; zero high word for later 
; point to drive queue element 
5 get size from driveq entry 



stack buffer 

signature word 

creation date 

last backup date 

volume attributes, number of files 



I disk size in 512-byte blocks 



MWE.L 


D3,D0 


use to calculate FDB 


LSR.L 


u,m 


, DS/64 


MOME.L 


D0,D1 




ADDQ 


itl,Dl 




BCLR 


«0,D} 


FDB = DS/64 (make it even, though) 


CMP.L 


ilaxFDB.Dl 


check against max 


BLS.S 


31 


, skip if OK 


MOME.L 


HHaxFDBjDl 


else set FDB to max 


MWEQ 


it8,D0 


1 ABBS = 8 (4K) 


MOVE.L 


D3,D4 


get disk size 


dm 


D0,D4 


DS/ABBS 


^P 


D4 


clear remainder 


CLR 


D4 




SUAP 


D4 




LSL.L 


#2,D4 


«4 


MOVE.L 


D4,D5 




ADD.L 


D5,D4 


*B 


ADD.L 


D5,D4 


*12 (bits required for block map) 


MWE.L 


II4096,D5 


bits per block 


DIVU 


D5,D4 




MOVEQ 


i(l,D5 


first MDB block 


ADD.U 


D4,D5 


add quotient 


SUAP 


D4 


check remainder 


CMP.W 


«3584,D4 


>bits avail in block 1 of MDB? 


BLS.S 


32 


skip if OK 


ADDQ.L 


itl,D5 


else incr MDB count 
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|32 



I 
32 



CMPI.L 

B6E.S 

MOUEQ 

MflME.L 

ADDQ.L 

HOgE.U 

SUBQ.L 
SUB.L 
SUB.L 
OIMU 

MI3ME.W 
MOVE.U 

LSL.L 

ADD.L 

HOWE.L 

LSL.L 

MOVE.L 

ADD 
MQME.U 

MWE.L 
MOVE.U 



il2,D5 

33 

«2,D5 
D5,D4 
il2,D4 
D4,<A0)* 

ii4,D2 
D5,D2 
D1,D2 
D0,D2 

D1,(A0)+ 
D2,(A0)+ 



; check if less than isiniiBUiB MDB size 

; skip \i OK 

; else set to rainimure size 
; get MDB 

I set DSB (offset by 2 boot blocks) 
; save directory start block 



DO, DO 
DO,(AO)+ 
)t3,D0 
DO,(AO)+ 

D4,D1 
D1,(A0)+ 

lt$00000001,<AO)i 
D2,<A0) 



WrMstrlnfo 



31 



32 



MOVE.L 
MOME.L 
MWE.L 
MOME.L 
MOME.U 
Write 
BNE.S 

SUBQ.L 

LSL.L 

ADD.L 

MOVE.L 

JWr i te 

i^E.S 

MOVE.L 
HOMED 
CLR.L 
DBRA 

MOME.L 
Write 
S^E.S 
SUBQ 
BGT.S 

SUB.L 
CLR.W 



AB = DS-4-MDB-F0B / ABBS 

FDB = length of dir in (512-byte) blocks 
AB = number of alloc blocks this volunte 

X 512 for alloc blk byte size 

allocate in these byte quantities 

nuiB of bytes to try to alloc as a clump 

ASB = FDB 4 DSB 

starting diskette (512-byte} block in map 

next free file number is 1 
all alloc blocks are free now 

; point to general 1/0 param block 



IOPBlk(A6},A0 

A2,I0Buffer(A0) 

li$00000200,I0ByteCount(A0) 

ll$00000400,I0Pos0ffset(A0) ; absolute address $400 

*l,I0Po5Mode(A0) | position mode 1 (from disk start) 

; write main directory 
33 I exit on write errors 



lt2,D3 
ii8,D3 
D3,D3 



; disk size in blks - 2 

; x 512 for byte pos of second MDB 



D3,I0Pos0ffset(A0) ; put a copy at the end 



33 

A2,A1 
«127,D0 
(Al)+ 
DO, 31 



J exit on write errors 

I ptr to 512-byte stack buffer 
; zero the block 



it4000006D0,I0Pos0ffset(A0) ; absolute address $600 

; zero the other master directory blocks 
33 

K1,D5 
32 



; loop until done or error 



D4,D1 
lOPosMode(AO) 



j FDB = ASB - DSB (zero this many dir blks) 
; Just zero sequential blocks 
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34 



Write 

^E.S 33 

SUBQ ltl,Dl 

BGT.S 34 



J loop until done or error 



33 



MOMEM.L (SP)+,D2-DyA0-A3 | restore regs 

MOME.U D0,D3 

RTS 



; special data area 



theType 


.Word 


theltem 


.Long 


theRect 


.Long 0,0 



iters type 
itera handle 
iteiB rectangle 



.END 
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FILEN^E; MWD-HD/WdgtBootDrvr 

Block boot code for Monitor system booting from a Widget 

7-NOV-84 

8-NOV-84 

9-NOV-84 
lO-Noy-84 
ll-Nov-84 



12-Now-£ 



Stole 4rojB Rich Page 

Stripped out non-boot code 

Faked all W% as header for block 

Now reads headers ARER data, added MOVEQ/ADDQ's 

Moved *AAAA's stuff to WidgetBootBlks so .PROC creates correct offsets 

for PC-relative branches 

$A^ header stuff now handled by Pascal code 



21-Feb-85 RDC Change setting of VIA DORB register so DIA6 line (bit 6) is input 



PIA REGISTERS for Widget disk interface 



ACR EQU 


$58 


PCR EQU 


$60 


IFR EQU 


$68 


lER EQU 


$70 


NHS EQU 


$78 


DSKBLK EQU 


512 


BLKSIZE EQU 


255 


PHDRSIZ EQU 


9 



aux control 

peripheral control 

int flags 

int enable 

reg A no hand shake 

nuraber of bytes in a block 

words-1 in Widget block 

words-} in Widget header 



OFFSET EQUS for dskread and dskwrt routines 



lOCMD 


EQU 


-4 


lODRV 


EQU 


-3 


6L0CKL 


EQU 


-2 


BLOCKH 


EQU 


-1 



I OFFSET equates for Widget read and write routines 



PCWD 


EQU 


-6 


BLKH 


EQU 


-5 


BLKM 


EQU 


-4 


BLKL 


EQU 


-3 


RETRY 


EQU 


-2 


THRESH 


EQU 


-1 



BOOT BLOCK ZERO STUFF 



WdgtDrvr 



MOVE 


)I$2700,SR 


LEA 


WidgetBoot,A7 


MWEQ 


it8,Dl 


MOVE.L 


D1,A2 


MOVE.L 


«$FCD901,A4 


MOUEQ 


110,00 


MOVE.L 


(A2),A1 


LEA 


BUSERR,AO 


MOME.L 


A0,<A2) 


TST.L 


$400000 


MOUE.L 


$198,A4 


MOMEQ 


ltl,DO 
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First long on disk = $46FC2700 

stack grows down from start of loaded code (block 0) 

Both block count & address of exception 

Lisa base address 



; Set up exception handler 

; Read ROM on 6LM, Bus Error on Lisa 
; Get GLM base address 



File -l}2it2-hd/wdgtbootdrvr.TEXT3 



Page 1 



BUSERR 



;RDC 
;RDC 



31 



33 



MWE.L 
MWE.B 

MOME.B 
MWE.B 
MWE.B 



AI,(A2) 
D0,$14C 

#$0A,PCR<A4) 

lt$00,DDRA<A4) 

«$18,0RB(A4} 



MOVE.B «$3C,DDRB(A4) 



MOME.L »LDRL0C,A3 
NOVEG itO,D3 
MWE.L D1,-<A7) 



MWE.L 

CLR.W 

MWE.L 

MOME.L 

MOVE.L 

N(WE.U 

HOVE.L 

MWE-L 

HOVE.L 

BSR 

7ST.W 

BNE.S 

ADD.U 

ADOQ.L 

TST.L 

BNE.S 

JMP 



A7,D1 

-(A7) 

A7,D0 

A4,-<A7) 

D0,-<A7) 

«lr<A7) 

D1,-<A7) 

D3,-<A7) 

A3,-<A7) 

PDSKRD 

<A7)+ 

33 

it512,A3 

itl,D3 

<A7) 

31 

-7*512(A3) 



LEA ERi^SG,A3 

SUB.L A2,A2 

HOUEQ »23,D0 

JMP ROMEPT 



5 Set GUI Flag (0=LISA,1=GLM) 

set Ctrl CA2 pulse mode strobe 
set port A bits to input 
en=true, dir=in, crid=fa1se 

; set port B bits 0,l,6,7=in, 2,3,4,5=out 



} A3 = PTR TO LOC FOR LOADING BLKS 1..7 
; COUNT != 8 

5 RC j= 

BASEAODRESS 

3RC 

DRIWE 

3C0UNT 

BLKNUMBER 

3BUFFER 

I RC = 0? 

bump 3bu^fer by block size 
bump blocknumber by 1 
COUNT = ? 

f jump to -first byte o^ block 1 



FINDD2 



UFBl 



SNDRl 



UFNBl 



MOUE.B 

HOME.B 

BTST 

BNE.S 

MOVE.B 

MOgEQ 

CMP.B 

BNE.S 

MQWEQ 

CLR.B 

ST 

HOME.B 

HOVE.B 

BTST 

BEQ.S 

CLR.B 



#I08,OR6<AO) 

#$00,DDRA<AO) 

»1,0R6(A0} 

UFBl 

IRA(A0),D1 

iiO,DD 

D2,D1 

SNDRl 

WSSjDO 

ORB<AO) 

DDRA(AO) 

DO,ORA<AO) 

ll$10,0RB(AD) 

ttl,ORB(A0) 

UFNBl 

DDRA(AO) 



en=true, dir=in, cmd=true 
set port A bits to input 
wait for busy 

; get port A in Dl 

; did pippin return state requested ? 



UM => en=true, dip=out, cracNtrue 
}|$FF => set port A bits to output 
send reply 00 or 55 
en=true, dir=out, cmd=fa1se 
wait for not busy 

; WOO => set port A bits to input 
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MWE.B 


ltfl8,ORB<A0) 


en=true, dir=in, cn»i*=^a1se 


TST.B 


DO 


SET CC HERE TO SHARE CODE 


RTS 






STATOl 






MOVEQ 


«1,D2 


try to find state Oi 


BSR.S 


FINDD2 


if state 01 was found then 


BNE.S 


mu 


go send command bytes else 


BSR.S 


FINDD2 


try again, if state 01 not found then 


BEQ 


PDSKERR 


return disk error 


C0PY6 

HOME .8 


ll$10,ORB(A0) 


en=true, dir=out, cnjd=fa1se 


ST 


DDRA(AO) 


«*FF =) set port A bits to output 


LEA 


-6(A<S),A1 




HOUEQ 


il5,D2 


loop six times 


COPYSIX HWE.B 


(A1),NHS(A0) 




MWE.B 


<A1)+,0RA(A0) 




DBRA 


D2, COPYSIX 




RTS 







; Note: Widget controller does auto-rsapping to 5;1 interleave, so block 
; numbers map directly to sector numbers. 



STRTRD 



MOME.L 

CLR.W 

MOVE.L 

CLR.B 

MOME.B 

MOME.B 

HOgE.B 

MOVE.B 

MQWE.B 

BSR.S 

MOMEQ 

BSR.S 

BEQ 



22(A6),A0 

<A0) 

26im,m 

PCMND(A6) 

13(A6),BLKH(A6) 

14<A6),BLKH<A6) 

15(AA),BLKL<A6) 

II10,RETRY(A6) 

1I4,THRESH(A6) 

STATOl 

«2,D2 

FINDD2 

PDSKERR 



MOVE.B IRA(A0),-4(A6) 

MOVE.B IRA<A0),-3(A6) 

MOME.B IRA(A0),-2(A6) 

MOVE.B IRA<A0),-1(A6) 
RTS 



; set RC to zero 

; get base address 

; set cotHiand to read 

; set block number 



set retry count 

set threshhold 

get 01 byte and send read cotmand 

get 02 byte 

disk error if not in read state 



get pippin status 



DURE PDSKRD <BASEADDR:LONGIKT,' 






VAR RCsINTEGER; 






DRIVE; INTEGER 1 






MAR COUNTjLONGINT; 






BLKNUMBERsLONGINTi 






VAR BUFFER)} 


26 




base address 


22 




3RC ptr to word 0..255 


20. 


.21 


drive word 
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PDSKRD 



NDSKRD 
LDSKRD 



MOMEQ 
BRA.S 

MOMEQ 
LINK 



U 

12..15 

8 

4 



-6 

-8 

-28 

LDSKRD 

itO,DO 
A<i,«-28 



SCount 
Block Number 

Return Address 
Old A6 

Corasand BuHer 
Header -flag 
Header Buffer 



ptr to long 
long 



MWE.L 12(A6),D2 

ROL.L il8,D2 

BPL.S 31 

MOMEO «0,D0 



31 



MOME.W 

MOME.L 

SUBQ.L 

BSR.S 

TST.U 

BPL.S 

BSR.S 



D0,-8(A(S) 

16<A6),A0 

«1,<A0) 

STRTRD 

-2(A6) 

RDNRES 

STRTRD 



RDNRES 



MOUEQ #3,D2 

TST.L -UM) 

BNE.S PDSKERR 

HOMEQ II0,D1 

LEA IRA<AO),AO 

HWE.L 8<A6),A1 

MOgE.W #BLKSIZE,D2 

; nou read in the data bytes 

READLP 



MOgE.B 


(AO),DO 


EOR.B 


D0,D1 


HWE.B 


D0,<A1)+ 


HOVE.B 


(AO),DO 


EOR.B 


D0,D1 


MOME.B 


D0,(A1)+ 


DBRA 


D2, READLP 


ad in the header 


TST.W 


-8(A6) 


BEQ.S 


FINISH 


LEA 


-28(A6),A1 


MOUEQ 


liD,D2 



; headers := true 

; headers ;= false 

; cheap check for Block Nurober = $FFFFFF 

I headers != false 

; get Scount 
I decreraent count 
I try read first tine 

; try read second tirae 

|SET ERROR VALUE 

;WAS ERROR, EXIT 

lINIT CHKSIIi 

;6ET PTR TO DISK IN PORT 

I get address of BUFFER 



GET BYTE FROM DISK 
INCLUDE IN RUNNIN6 CHECKSUM 
AND STORE IT IN BUFFER 
GET BYTE FROM DISK 
INCLUDE IN RUNNING CHECKSUM 
AND STORE IT IN BUFFER 
REPEAT UNTIL DONE 



; no headers, don't do chksum verification 

; set ptr to header buffer 
5 clear out count 
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MOMEQ }tPHDRSI2,D2 



set header words - 1 



READHDR 



MWE-B 


(AO},DO ; 


GET BYTE FROM DISK 


EOR.B 


D0,D1 


INCLUDE IN RUt^ING CHECKSUM 


HOME.B 


D0,(A1)+ 


AND STORE IT IN BUFFER 


MOgE.B 


(AO),DO 


GET BYTE FROM DISK 


EOR.B 


DO.DI 


INCLUDE IN RUNNING CHECKSUM 


HIWE.B 


D0,(A1)+ 


AND STORE IT IN BUFFER 


DBRA 


D2,READHDR 


REPEAT UNTIL DONE 


TST.B 


Dl 


CHECKSlli = 0, GOOD READ 


BEQ.S 


FINISH 




TST.B 


-22(A6) 


SPECIAL HEADER FLAG, IGNORE 


BPL.S 


FINISH 




HIWEQ 


«4,D2 


READ ERROR, SET ERROR NUH6E 


PDSKERR MOME.L 


22<A6),A0 


get return code ptr 


NE6.B 


D2 


error is 128.. 255 


MOUE.U 


D2,(A0) 


set return code 


FINISH UNLK 


A<S 




HWE.L 


<A7)+,A0 


,GET RETURN ADDRESS 


ADD .14 


}I22,A7 


iSTRIP PARAMS 


JMP 


(AO) 


lAND RETURN 



Pad it out to 512 bytes. The last eight bytes are set by the Widget 
driver <since they actually are the last eight bytes ol the header 
block). The first 7 are O's, w/the last byte = the block checksum. I 
don^'t need these bytes anyway, so it just doesn''t natter, it Just 
doesn't raatter, it just doesn't raatter... 



I 20 bytes I 492 bytes I 12 bytes I 7 bytes I 1 byte I 

+ 4 

I Fake header I Block boot code i Header info I Zeroed I Checksum I 

+ 4 



ERRMSG .ASCII 'ERROR ' 
.UORD 

.BLOCK 54,0 
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FILENAME; MWD-HD/WidgetBootBlks.text 

Modifieds 

6-NOV-84 Ken Krugler ~ Hacked to work w/MacWorks 
8-NOV-84 Added 20 $A's hack to front of boot blocks 
ll-Nov-84 Shift block so PC-relatJye offsets are correct (otherwise off by $14 

because of fake header block) 
<23Apr85) RDC Add support for square pixel screen 

Remove initialization of screen to white (leave boot R{^ desktop) 



Memory Mapi; 
high mm 



stack base 



low mm 



♦ Upper Screen Memory + 


♦ Lower Screen Memory + 


+ Mon i tor Load Area + 


+ Free + 


+ Loader read by BIkO + 


+ Initial Screen Memory ♦ 


+ Directory Buffer + 


+ Stack and Global s + 





($160) = ($174) 



($110) = ($170) 



($10C) 



$20800 



$10000 



$10000 



.PROC WidgetBoot,0 
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; PIA REGISTERS for Widget disk interface 



ORB EQU 





ORA EQU 


8 


IRA EQU 


ORA 


IRB EQU 


ORB 


DDRB EQU 


$10 


DDRA EQU 


*18 


ROMEPT EQU 


$FE0084 


CpuROHid EQU 


$FE3FFC 


LDRLOC EQU 


$20800 


LOMEM EQU 


f02A4 


HIMEH mi 


$9294 


THSBASE EQU 


$D00-40 


STKBASE EQU 


$10000 


ADDRSYM EQU 


$2000 


VIDLATCH EQU 


$FCE800 


COPSDRB EQU 


4 


FDIR EQU 


4 


COPSIFR EQU 


$1A 


PORTA EQU 


2 


CRTRQW EQU 





CRTCOL EQU 


CRTROW+l 


CRTSTAT EQU 


CRTCOL+1 


CTLSFL8 EQU 


CRTSTAT+1 


BUFSZ EQU 


24576 


BUFBK EQU 


BUFS2/512 


BLKSZ EQU 


512 


MSGS2 EQU 


2048 


DIRSZ EQU 


2048 


DIR EQU 





BUF EQU 


-BUFSZ 


MSGS EQU 


BUF-MSGSZ 


BLK EQU 


MSGS-BLKSZ 


LOADANY EQU 


BLK-2 


LOADSYM EQU 


LOAD^-2 


PRTINFO EQU 


LOADSYM-2 


MSBASE EQU 


PRTINFO-4 


ROWBYTS EQU 


MSiASE-2 


R0W8BTS EQU 


ROWBYTS-2 


RBYTES EQU 


R0W8BTS-2 


RLONGS EQU 


RBVTES-2 


COPSMIA EQU 


RL0N6S-4 


^SEADR EQU 


COPSyiA-4 


6LK0FS EQU 


BASEADR-2 


PAINTW EQU 


BLKOFS-2 


ii^STGLB EQU 


PAINTW 



; output regs 

; input regs 

; data direction regs 



entry point for RWi tRonitor 

Lisa CPU Ri^ version id (3 - square pixels) 

load pt for full loader at $20800 

low lemory address 

high nieroory address 

the MSBASE for the system 

Address of base of stack 

Address for monitor symbols 

address of the video latch 

Dir Reg B 

Bit nuisber for Floppy Disk Int Request 

Interrupt flag register 

Offset to Port A 

BYTE, ROW FOR SIMULATED CRT 

BYTE, COLUMN FOR SIMULATED CRT 

BYTE, STATE OF CRT SIMULATOR 

BYTE, UNUSED 



<23Apr85> 



A5+ (growing directory upwards) 

object file buffer, MUST be first ! 

message buffer for prtnaae 

single block for CONFIG and BOOTFILES 

indicates a file was loaded 

load monitor symbols flag 

print info flag 

globals for character printing 

bytes for each scan line 
bytes to offset to 8th scan line 
bytes for each chr row 
long-words for each chr row 
address of via for the COPS 
address of pia for the WIDGET 
offset of root volume 
paint screen white flag 



directory entry equates 
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FSTBLK 


EQU 





LSTBLK 


EQU 


2 


FKIND 


EQU 


4 



dip entry for DFIRSTBLK 

dir entry for DLSTBLK 

dip entpy -fop -file kind, status 



', case fkind = secupdip op untypedlile 



DVIO EQU 


6 


OEOUBLK EQU 


14 


DNUMFLS EQU 


16 


DLQADTM EQU 


18 


DLASTBT EQU 


20 



J case fkind = norraal files 



dip entpy fop title field 

dip entpy fop end of volume field 

dip entpy fop nurabep files 

; iBOst pecent date setting 



dip entpy fop title field 
dip entpy fop lastbyte 
dip entpy fop date 
length in bytes of dip entpy 

tpy to fix the contpast 



; Include the block boot dpivep code 

.INCLUDE MyO-HD/WdgtBootDpvp.TEXT 
i START OF SECONDARY LOADER (begins at Block 1) 
TPLUS512 5 UidgetBoot + 512 bytes !! 

; shift block into the coppect position 

; AO = ptp to 1st byte of peal code 



DTID EQU 


6 


LSTBYTE EQU 


22 


DACCESS EQU 


24 


DELENG EQU 


26 


FIXCONTRAST 


.EQU 


; BOOT BLOCK ZERO CODE 



30 



LEA UidgetBoot,AO 

MOVE.L AO.AI 

SUB.U it20,Al 

NOVEQ ttO,DO 

MOUE.W «122,D0 

MOME.L <A0)+,<A1)+ 

DBRA DO,aO 



; Al = ptp to whepe code should be 

; deap out count 

; move 123 longs = 492 bytes = 512 - 20 byte header 

; mn a byte down 
; loop till done 



tpy to peset contpast value hepe, since it got scpewed up saiehow. 
A4 still points to VIAl <hapd disk/papallel ppintep popt) 
pedembep to adjust padding at end of code 



.IF FIXCONTRAST 

BSET }t2,DDRB(A4) 

BSET «2,0RB(A4) 

MOUE.B WFF,DDRA(A4) 

MOUE.B «$80,0RA<A4) 

BSET «?,DDRB(A4) 

BCLR «7,0RB<A4) 

BSET «7,0RB<A4) 

BCLR «7,DDRB(A4) 



• DEN/ = output 

; DEN/ = 1 (disk disabled) 

I Popt A = output 

; wpite out data (some peasonable stapt contpast) 

; ppogpam UCNT as an output 

; yank the line dcH^n 

; yank up 

; ppogpant UIM as an input 
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HQVE.B lt$00,DDRA<A4) 
BCLR «2,0RB(A4) 
,ENDC 



; Port A = input 

5 DEN/ = (disk enabled) 



Get on with the business oi booting 



HOME 


«$2700,SR 


MOVE.L 


IISTKBASE,A7 


LINK 


A5,«LASTGLB 


MOME.W 


II0,PAINTW(A5) 


CLR.I4 


MSGS<A5) 


CLR.W 


L0AD^<A5) 


CLR.W 


L0ADSYM<A5) 


CLR.U 


PRTINF0(A5) 


TST.B 


$14C 


BEQ.S 


35 


HWE.L 


«$18000,D0 


MWE.L 


DO ,$110 


HIWE.L 


DO ,$160 


MIWE.L 


8$CC000Q,D0 


MOME.L 


DO ,$170 


MIWE.L 


DO ,$174 


MOMEQ 


1174, DO 


MIWE.L 


lt$D00001,COP^IA<A5} 


NOME.L 


$198,BASEADR(A5) 


BRA.S 


36 


35 MIWE.L 


«$18000,D0 


MIWE.L 


DO ,$110 


MIWE.L 


DO ,$160 


MIWE.L 


DO ,$170 


MIWE.L 


DO ,$174 


CMP.B 


i{3,CpuR0Mid 


BNE.S 


33 


MIWEQ 


1176,00 


BRA.S 


34 


33 MOMEQ 


890,00 


34 MIWE.L 


«$FCDD81,C0PSMIA(A5) 


MIWE.L 


ll$FCD901,BASEADR<A5) 


36 MIWE.W 


D0,ROWBYTS(A5) 


MIWE.U 


D0,D1 


LSL.U 


»3,D1 


M(WE.W 


D1,R(]W86TS<A5} 


MULU 


810,00 


MIWE.W 


D0,RBYTES<A5) 


LSR.W 


82,00 


MIWE.W 


D0,RL0NeS(A5) 


BSR 


SE7VIDP 


MIWE.L 


8LDRLOC+$E54,A0 



I turn off interrupts 



; donM change screen 



<23Apr85> 



GLM default screen locations 



GLM row bytes 

VIA address for Keyboard and Tiraers 

Get base address for boot WIDGET 



LISA default screen locations 



check for square pixel Lisa 

skip if not 

square pixel row bytes 



LISA row bytes 

Via 2 base for NEW & OLD I/O boards 

Base address for WIDGET (built-in) 



<23Apr85> 
<23Apr85> 
<23Apr85> 
<23Apr85> 



get start of boot volume block number 
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ilOVE.U (AO),DO 

ISIM «3,De 

HOVE.W D0,BLK0FS(A5) 

PEA DIR(A5) 

HWE.W }l2r<A7) 

MOME.W }t4r<A7) 

BSR READBLKS 



; Read the directory 



31 



32 



LEA 
CMP.U 
6NE.S 
MWE.U 
ADD.U 
HUL8 
SUB.U 
B1I.S 
ADD.U 
LSR.U 
LSR.U 
CMP.W 
BLT.S 
HOgE.U 
PEA 

MOME.W 
MOVE.W 
BSR 
CLR.U 
PEA 

HOME.W 
PEA 
BSR 
TST.W 
GNE.S 
PEA 
BRA 
FCONFIG LEA 
ADD.U 
PEA 

M(WE.W 
N(WE.U 
BSR 
LEA 
ADD.U 
MOVE.W 
BEQ.S 
ROR.U 
MtWE.L 
ROR.U 
SUAP 
ROR.U 
SUAP 
MOVE.L 
MOME.B 
SU6.U 
BNE.S 



31 



32 



DIR(A5),A0 

{t42,2(A0) 

32 

DNUMFLS(AO),DO 

ItlrDO 

ftDELENG.DO 

itDlRSZ,DO 

32 

it511,D0 

ItB.DO 

«1,D0 

836,00 

31 

m,m 

DIRSZ(AO) 

«6r<A7) 

D0,-<A7) 

READBLKS 

-<A7) 

CONFIGF 

ltl,-<A7) 

DIR<A5) 

DIRSRCH 

<A7) 

FCCNFIG 

CONFIGF 

ERROR 

DIR(A5),A0 

(A7)+,A0 

BLK(A5) 

(A0),-<A7) 

#1,-<A7) 

READBLKS 

BLK(A5),A0 

«6,A0 

(AO)+,DO 

DATAEND 

it8,D0 

(A0)+,D1 

«8,D1 

Dl 

«8,D1 

Dl 

D1,A1 

(A0)+,(A1)+ 

«1,D0 

32 



Read the directory 



; Read the CONFIG. DATA file 
; Get next count word 
; Get next address word 



; Copy each data byte 
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BRA.S 


31 






OATAEND 7ST.W 


BLK(A5) 






BEQ.S 


31 






HWE.L 


HIHEM,DO 






MWE.L 


L0MEM,D1 






SUB.L 


D1,D0 


; tieiBory size 


MOVE.L 


D0,D2 






SUB.L 


lil.DO 






MWE.L 


DO ,$11 4 


1 reeraopy 


' top 


SUB.L 


«$7FFF,D0 






HOVE.L 


00,1160 


; upper 


screen base 


HOUE.L 


DO ,$174 






SUB.L 


tl$8000,D0 






HOUE.L 


DO ,$110 


; lower 


screen base 


MOME.L 


DO ,$170 






ASR.L 


ttl,D2 






NOME.L 


02,$13C 


; default stack ptr 


31 BSR 


SETVIDP 






CLR.L 


$118 


; APPLE not available 


MOVE.L 


$110,$10C 






PEA 


SCREENB 






BSR 


PRTNAME 






SUB.L 


it$1000,$10C 


; code bu-ffep 


PEA 


DBGDATA 






BSR 


PRTNAHE 






CLR.W 


-<A7) 






PEA 


BOOTFLS 






HOgE.U 


#1,-(A7) 






PEA 


DIR(A5) 






BSR 


DIRSRCH 






TST.W 


<A7) 






BNE.S 


32 






PEA 


BOOTFLS 






BRA 


ERROR 






32 LEA 


DIR<A5),A0 






ADD.U 


(A7)+,A0 






PEA 


BLK(A5) 






HOVE.W 


(A0),-(A7) 






NOVE.W 


«1,-<A7) 






BSR 


READBLKS 




; Read the BOi 


PEA 


BLK<A5) 






NEXTF MWE.L 


<A7),A0 






TST.B 


<A0) 






BEQ.S 


LOADMON 






CLR.W 


-<A7) 






SUB.B 


ii$20,<A0) 






MWE.L 


A0,-(A7) 






MWE.W 


lll,-(A7) 






PEA 


DIR(A5) 






BSR 


DIRSRCH 






TST.W 


(A7) 






BNE.S 


31 






MOVE.W 


ii4,D0 






TST.W 


<A7)4 




; to expose a 


BRA 


ERROR 






31 LEA 


OIR(A5),A0 
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ADD.U 
MWE.L 
BSR 

MOVE.L 
MWE.L 
HOME.L 
JSR 

MWE.L 
NWE.L 
MOME.« 
HOME.L 
BSR 
ADD.L 
BRA 
LOADMON CLR.W 
PEA 

MWE.W 
PEA 
BSR 
IST.W 
BNE.S 
PEA 
BRA 
LEA 
ADD.U 
MOVE.L 
BSR 
PEA 
BSR 
TST.W 
6EQ.S 
CLR.W 
PEA 

MOVE.U 
PEA 
BSR 
TST.W 
BEQ.S 
LEA 
ADD.W 
MWE.L 
BSR 
PEA 
BSR.S 



il 



(A7)4,A0 

A0,-<A7) 

LOADIT 

A5r<A7) 

A7,STKBASE 

$10C,AI) 

(AO) 

STKBASE,A7 

(A7)4,A5 

lll,L0ADANY(A5) 

<A7),-<A7) 

PRTfWIE 

#16, (A7) 

NEXTF 

-(A7) 

HONITOR 

«lr<A7) 

DIR(A5) 

DIRSRCH 

(A7) 

31 

MONITOR 

ERROR 

DIR<A5),A0 

(A7)+,A0 

A0,-<A7) 

LOADIT 

MONITOR 

PRTNAME 

L0ADSYM<A5) 

JMP2M0N 

-(A7) 

SYMBOLS 

«1,-<A7) 

DIR(A5) 

DIRSRCH 

(A7) 

JMP2M0N 

DIR(A5),A0 

<A7)+,A0 

A0,-<A7) 

LMONSYM 

MS66 

WRTSTR 



Load the next object file 



Load the Monitor object 



Load the Monitor symbols 



JMP2M[1N 

MOME 
HOME 
MOVE 
MOUE 
MOVE 
OR.B 
BCLR 
MOVE 
MOVE 

WAIT4RS DBF 



SRr<A7) 

#$2700, SR 
,L C0PSVIA<A5),A0 
,B COPSDRB(AO},DO 
,6 DO,Di 

lil,DO 

ilO,(AO) 
.B DO,COPSDRB(AO) 
.L »5200,D2 

D2,WAIT4RS 



Reset the Keyboard 

Ints off 

Cops Base Address 

Get Dir B reg 

save it 

make bit output 

set reset signal 

make sure of Dir B 

delay l^s 
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BSET 

MOVE 

MOVE.L 

JMP 


«1,<A0) 

D1,C0PSDRB(A0) 

<A7)+,SR 

$10C,A0 

(AO) 


; remove reset signal 
1 restore Dir B reg 
; Ints on 

J Go For It ! 


WRTSTR 


MOVE.L 

MOME.L 

CLR.W 

MOME.B 

BRA 


4(A7),A2 

<A7)+,(A7) 

02 

(A2)+,D2 

WRITE 




ERROR 

ERR0R2 
^6 


PEA 

MOME.W 

BSR.S 

BSR.S 

BRA 


MS62 

lt$lllE,MSBASE(AS) 

WRTSTR 

WRTSTR 

HANG 


J row=17, col=30 


SCREENS 


.BYTE 
.ASCII 


10 
'SCREENBASE ' 




DBGDATA 


.BYTE 
.ASCII 


13 
'DEBUG6ER.DATA' 




CONFIGF 


.BYTE 
.ASCII 


11 
'CONFIG.DATA' 




BOOTFLS 


.BYTE 
.ASCII 


14 
'BOOTFILES.DATA ' 




MONITOR 


.BHE 
.ASCII 


11 
'MONITOR.OBJ' 




SYMBOLS 


.BYTE 
.ASCII 


15 

'MONITOR. SYMBOLS' 




MSGl 


.BYTE 
.ASCII 


15 

'Disk Read Error' 




MSG2 


.BYTE 
.ASCII 


15 

'Failed to find ' 




MSG3 


.BYTE 
.ASCII 


14 

' is loaded at ' 




MSG4 


.BYTE 
.ASCII 


45 

'About to boot, press 


Mouse Button to continu 


MSG5 


.BYTE 
.ASCII 


13,13,13 
'Booting ...' 




MSG6 


.BYTE 

.ASCII 

.BHE 


24,13 

'Loaded Monitor symbol 

13,0 


s' 
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PRTSTR 


LINK 


M,m 




TST.W 


L0AOANY<A5) 




BEQ.S 


31 




TST.W 


PRTINF0(A5) 




BEQ.S 


31 




LEA 


HS6S<A5),A2 




M(WE.W 


(A2)4,D2 




6EQ.S 


30 




BSR 


WRITE 




MWE.U 


II0,HS6S(A5) 


30 


HOVE.L 


8<A<S),-<A7) 




BSR.S 


WRTSTR 




BRA.S 


33 


31 


LEA 


MSGS(A5),A0 




MWE.L 


A0,A1 




MWE.U 


(A1>+,D0 




ADD.U 


D0„A1 




CLR.W 


Dl 




HOVE.L 


8(AA),A2 




HWE.B 


<A2)+,D1 




ADD.U 


D1,D0 




MOVE.W 


D0,(A0) 


32 


MOVE.B 


(A2)+,(A1)+ 




SU6.U 


«1,D1 




BNE.S 


32 


33 


UNLK 


A6 




MOVE.L 


<A7)+,<A7) 




RTS 




PRINZE MOME.L 


(SP)+,(SP) 




RTS 





SETVIDP CLR.L MSBASE(A5) 





TST.W 


PAINTW(A5) 






6EQ.S 


33 






BSR.S 


31 






.BYTE 


2,27,$2A,0 




31 


BSR 


WRTSTR 






TST.B 


$14C 






INE.S 


33 






MOME.L 


$160, DO 


; get screen start 




ADD.L 


LOMEM.DO 


1 bias this by start of nieraory 




LSR.L 


«8,D0 


; and convert to 32K page 




LSR.L 


«7,D0 






MOME.B 


DO.yiDLATCH 


; set the video page latch 


33 


RTS 






FILLBUF PEA 


BUF<A5) 






MOVE.W 


-2(A6),-<A7) 






MOVE.L 


8(A6),A0 






MOVE.W 


2(A0),D0 






SUB.W 


-2(A6),D0 
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CHP.U 


ltBUFBK-l,DO 




BHI.S 


31 




NOVE.U 


D0,-<A7) 




BRA.S 


32 


31 


HOME.W 


«BUFBK,-<A7) 


32 


BSR 


READBLKS 




ADD.U 


IIBUFBKr2(A6> 




LEA 


BUF(A5),A0 




RTS 





PROCEDURE LHONSYM(gAR DIRBITRY) 
Stack 



; s 


Pointer to direc 


tory entry for syrabols file 


f 4 


Return address 




; 


01dA6 




5 -2 


Nextblock 




5 ~i 


4 BYTE UALUE 




1 -14 


8 CHAR NAME 




; -18 


Address for mon 


top syifibols 


J -20 


Counter 




LMONSYM LINK 


A6,ll-18 




MOVE.L 


8<A6),A0 




MWE.W 


(A0),-2(A4) 




BSR 


FILLBUF 




MWE.L 


ilADORSYM,Al 




MWE.L 


A1,-18(A6) 




31 MOgE.W 


ll6,-20<A<i) 




LEA 


-14<A6),A2 




34 CMP.L 


A0,A5 




BNE.S 


35 




MOME.L 


A1,-<A7) 




BSR 


FILLBUF 




MOUE.L 


(A7)+,A1 




35 MOUE.W 


(A0)+,(A2)4 


1 fill -14(A6) thru -4<Ad) 


SUB.U 


}tl,-20(A4) 




BNE.S 


34 




TST.L 


-14(A6) 




BNE.S 


32 




TST.L 


-10(A6) 




BNE.S 


32 




TST.L 


-6(A6) 




6EQ.S 


33 




32 MOME.L 


-14<A<J),<A1)+ 


; copy name 


MOVE.L 


-10(A4),(A1)+ 




MOVE.L 


-6(A6),D0 


1 copy value 


ADD.L 


$10C,D0 




MOME.L 


D0,(A1)+ 




BRA.S 


31 




33 MOUE.L 


-18<A6),$406 




MOUE.L 


A1,$40A 




UNLK 


A6 




MOUE.L 


(A7)+,<A7) 




RTS 
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1 PROCEDURE LOADIKVAR DIRENTRY) 


; Stack 




; 8 


Pointer to directory entr 


1 4 


Return address 


; » 


Old A6 


! -2 


Nextblock 


LOAOIT LINK 


A6,«-2 


MOME.L 


8<A6),A0 


MOVE.W 


<A6)r2<A6) 


BSR 


FILLBUF 


31 CHP.B 


m5,im 


BEQ.S 


32 


CLR.B 


(AO) 


ADD.L 


(AO),AO 


6RA.S 


31 


32 CLR.B 


(AO) 


MOME.L 


(Ai)+,DO 


TST.L 


(A0)+ 


SUB.L 


lt8,D0 


MOME.L 


*10C,A1 


SUB.L 


D0,A1 


MOVE.L 


A1,$1DC 


33 CHP.L 


A0,A5 


BNE.S 


34 


MOVEH.L D0/A1,-<A7) 


BSR 


FILLBUF 


HWEH.L (A7)+,D0/A1 


34 NOME.U 


(A0)+,(A1)+ 


SUB.L 


lt2,D0 


BNE.S 


33 


UNLK 


A6 


HOyE.L 


(A7)+,(A7) 


RTS 




; DIRSRCH 






18 ^unc result 




14 3FTID 




12 FINDPERH 




8 3FDIR 




4 Return address 




Old A6 


OIRSRCH LINK 


A6,«0 


HOUE.L 


8<A6),A1 ; 


HOME.W 


liO,18(A6) ; 


HOME.L 


l!DELB^G,D3 } 


HOME.L 


14(A6},A0 ; 


MOWE.U 


DNIJHFLS(A1),D1 ; 


BEQ.S 


DIRSRCX j 


ADD.y 


«DELEN64DTID,A1 ; 


DIRSRLP HOVEM.L A3yA4,-<A7) | 



get ptp to dirbuf 
return as default 
initialize offset 
point AD at the filename 
get nuntber of files 
number of files = ? 
point Al at first entry 
save A3 and A4 
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MOVE.L 


A1,A4 




MOVE.L 


A0,A3 




CLR.U 


D2 




MOME.B 


(A0),02 


31 


CMPM.B 


(A3)+,<A4)+ 




BNE.S 


32 




SUB .14 


l»,D2 




BCC.S 


31 




SUB.U 


HDTID.Al 




MWEM.L (A7)+,AyA4 




BRA.S 


34 


92 


MOMEM.L (A7)+,A3/A4 


33 


ADD.U 


ltDELENG,Al 




ADD.U 


)iDELENG,D3 




SUB.U 


iil,Dl 




BNE.S 


DIRSRLP 




BRA.S 


DIRSRCX 


34 


HOME.W 


12(A6),D0 




MOVE.W 


DACCESS<A1>,D2 




AND.U 


WFE00,D2 




CMP.W 


lt*C800,D2 




SNE 


D2 




^D.U 


81 ,D2 




CMP.W 


D0,D2 




BEQ.S 


35 




ADD.U 


ltDTID,Al 




BRA.S 


33 


35 


MWE.W 


D3,18(A6} 


DIRSRCX UNLK 


A6 




MWE.L 


<A7)+,A0 




ADD.U 


}I10,A7 




JMP 


(AO) 



I A4 is used for title cofnpare 
; A3 is title to look for 

; length oi name in bytes 
; check each byte for equal 

; compare lengthtl bytes 

I found it leaye Al at start of entry 
I restore A3 and A4 

I restore A3 and A4 
I skip to next dir entry 
; also update offset 
5 any files left ? 

; file not found 

; if f indperni = daccess.yearOlOD then 



1 



dirsearch:=offset 



; pop return address 
; delete parameters 



PROCEDURE READBLKS<VAR BUFFER; BLOCK, COUNT: INTEGER); 
Stack 



READBLKS 



31 



12 


Address of buffer 




10 


block 




8 


count 




4 


return address 







old A6 




LINK 


M,m 




MOVE.U 


BLKOFS(A5),D0 




ADD.U 


D0,10(A<i} 




TST.U 


8(A6) 




BEQ.S 


33 




MOVE 


SR,-<A7) 




MOVE 


it*2700,SR 




MOVE.L 


lll,-<A7> 


; COUNT := 1 


MOVE.L 


A7,D1 




CLR.U 


-<A7) 


1 RC J= 
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32 



33 



HOME.L 


A7jD0 




MOME.L 


BASEADR<A5),-<A7) 


BASE ADDRESS 


MOME.L 


D0r<A7) 


, 3RC 


HOME.U 


ltlr<A7) 


DRIVE 


MWE.L 


m ,-<A7) 


3C0UNT 


CLR.L 


DO 




MOVE.U 


1D(A^),DD 




MOVE.L 


D0r<:A7) 


BLKNUMBER 


MOUE.L 


12(A6),-<A7) 


3BUFFER 


BSR 


PDSKRD 




TST.W 


(A7)* 




BEQ.S 


32 




PEA 


MS61 




BRA 


ERR0R2 




TST.L 


(A7)4 




HOVE 


(A7)+,SR 




SUB.U 


itl,8<A6} 




ADD.U 


iti,10(A6) 




ADD.L 


it512,12(A6} 




BRA.S 


31 




UNLK 


M 


flush locals 


MOME.L 


<A7)*,A0 


get return address 


ADD.U 


il8,A7 


flush paranis 


JMP 


(AG) 


and return 



GETCOPS MOUE.L C0PSgiA(A5) ,A0 

MWE.B COPSIFR<A0),D0 

BPL.S GET COPS 

BTST #1 ,D0 

BEQ.S 6ETC0PS 

MOME.B PQRTA(AO),DO 
RTS 

STATE 3 ~ GET RESET CODE 

WAITR BSR 6ETC0PS 
BRA.S NOKEY 

STATE 1 -- GET DELTA X 
UAITX BSR GETCOPS 

STATE 2 -- GET DELTA Y 
UAITY BSR GETCOPS 

NO KEY STROKE EXIT 
NOKEY CLR.W Dl 



; Get via base address 

; Load interrupt flag register 

; Test for COPS interrupt 

5 Get byte from COPS 



discard reset code 



; discard delta x 



; discard delta y 
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RTS 





STATE (] 


-- GET A MOUSE 


GETKEY 


BSR 


GETCOPS 




BEQ.S 


WAITX 




CMP.B 


it$80,D0 




BEQ.S 


UAITR 




MOVE.U 


iil,Dl 


) 


RTS 




WRITE 


LEA 


MSBASE(A5),A3 




TST 


D2 




BLE.S 


EXIT 




BSR.S 


CLRCUR 


WRITEI 


MOUE.B 


(A2)+,D0 




CMP.B 


it$OD,DO 




BEQ.S 


CRLF 




CMP.B 


lt$lD,DO 




BEQ.S 


WRDLE 




BSR 


PUTC 


URNEXT 


SUBQ 


IH,D2 




BBT.S 


WRITEI 


WREXIT 


BSR.S 


SETCUR 




BRA.S 


EXIT 


CRLF 


BSR 


PUTC 




MWE.B 


i»DA,DO 




BSR 


PUTC 




BRA.S 


WRNEXT 


WRDLE 


MOME.B 


«4,CRTSTAT<A3> 




BRA.S 


WRNEXT 


EXIT 


RTS 






Cursor 


routines. 


CLRCUR 






SETCUR 








BSR.S 


SHAl 




ADD.U 


R0W8BTS(A5),A1 




MWE.U 


li8,D0 


31 


SUB.U 


R0WBYTS(A5),A1 




NOT.B 


(AD 




SUB.U 


81, DO 




BNE.S 


31 




RTS 





j Get byte, Mouse ? 



Reset code ? 



any at all? 

no. Just leave 
remove cursor once per call 

and loop thru buf^Fer 
is this a CR ? 

yes, simulate extra stuf^ 
how about a DLE? 

yes, it's special too 



; then, set it on again 

; put out the explicit CR 
; then, the implicit LF 



; code is the same folks 

; set Al with proper byte address 

; then complement it 

; and thats all there is... 



SETAl Sets Al to proper address based upon 
current values of CRTROW and CRTCOL. 



SETAl 



CLR D3 

MOVE.B CRTR0W(A3),D3 

MULU RBYTES(A5),D3 

ADD RBYTES(A5),D3 

ADD.L $174,D3 



; note: we assume D3 is free 

D3 = byte offset of "CRT" 
plus an extra one 
addin real screen address 
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MWE.L D3,A1 ; and set it up 

CLR D3 

HWE.B CRTC0L(A3),D3 

ADDA D3,A1 j and add in column oHset 

RTS 

SCROLL - move contents of screen up one whole line 
Ue assume that we are at bottom line when called. CRTCOL will be 
left alone, but CRTROU will be set at 32 

SCROLL ; entry from anywhere 

MOVE CRTR0W(A3),-<SP) f save current COLuran 

NOVE «$0100,CRTR0U<A3) j and set to beginning of first row 

BSR.S SETAl ; and get address of screen 

MOME.L AljAO ; set from ptr also 

ADDA RBTrES<A5),A0 

MOUE RLCNGS(A5),D1 ; set loop for long copies 

LSL.W }l5,Di ; 32«RL0N6S 

31 MOME.L (A0)+,(A1)+ 

SUBQ itl,Dl 

BGT.S 31 

MOVE <SP)4,CRTR0W(A3) j restore old info 

MOVE.B «32,CRTR0W(A3) } but peg at bottom 
RTS 

PUTLF advance CRTROW; this may cause a scroll if at bottom 

PUTLF ADDQ.B «1,CRTRQW(A3) 

CMP.B lt32,CRTR0W(A3) 

BLS.S 39 I skip if its ok 

BSR SCROLL | else, do a scroll operation 

39 RTS 

PUTVT move cursor up one rm\ peg at top 

PUTVT SUBQ.B SI ,CRTR0W(A3) 

BGT.S 39 

MOVE.B «1,CRTR0W(A3) 
39 RTS 

PUTBS move cursor left one position; 

PUTBS SUBQ.B II,CRTC0L(A3) 

BGT.S 39 

MOME.B J{1,CRTC0L(A3) 
39 RTS 

PUTFF move cursor right one position; 

PUTFF MOVE.W ROWBYTS(A5),D0 

SUB.U I12,D0 

ADDQ.B }H,CRTC0L(A3) 

CMP.B CRTCOL(A3),D0 

BHI.S 39 

MOME.B D0,CRTCOL<A3) ; pin at right 
39 RTS 
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PUTSPCL Handle special characters here; such things 
as cursor controls and ESC non-sense. 



PUTSPCL 



31 



32 



39 



ESCT 



31 



32 



39 



ADD.B 

CMP.B 

BNE.S 

MOVE.B 

RTS 

CMP.B 

BNE.S 

HOME 

RTS 

CMP.B 

BEQ.S 

CMP.B 

BEQ.S 

CMP.B 

BEQ.S 

CMP.B 

BEQ 

CMP.B 

BNE.S 

MOME.B 

RTS 



it$20,D0 
it$lB,DO 
31 
«1,CRTSTAT(A3) 

«flE,DO 

32 

Jt$0101,CRTR0W(A3) 

it$08,D0 

PUTBS 

«$OC,DO 

PUTFF 

«iOB,00 

PUTVT 

iifOA,DO 

PUTLF 

)t$OD,DO 

39 

«1,CRTC0L<A3) 



special ESC characters here 



MWE.y 
SUB.U 
SUB.B 
BLE.S 

esR 

ADD.U 

MOVE.W 

SUB.U 

CLR.B 

SUB.U 

BNE.S 

ADD.U 

SUBQ 

BGT.S 

RTS 



R0WBYTS(A5),D1 

II1,D1 

CRTC0L(A3),D1 

39 

SETAl 

R0W8BTS(A5),A1 

lt8,D0 

R0WBYTS(A5),A1 

<A1) 

«1,D0 

32 

itl,Al 

81,D1 

31 



ESCSTAR 



31 



MOVE.L $174,A1 

MWE.L HO, DO 

TST.B i\AZ 

BNE.S 32 

MOME.W #8189,01 

MOVE.L D0,(A1)+ 

DBF Dl,31 

MtWE.L «-l,DO 

MOVE.L D0,(A1)+ 



character is now in DO <-32) 
Just -for niceness. 
ESC ? 

no, skip 
else, set state for next tirae 

and exit 
RS 

I set to home <1,1) 

I BS (left arrow) 

; FF (right arrou) 

I VT (up arrow) 

I LF (down arrow) 

; CR 

; none oi the above 



; erase to end of line 
; compute nureber at end 

\ set screen pointer 



I CLEAR 



5 clear the whole screen here folks 
; get screen start 
; get sonie white 



I 364 lines worth of longss 364*90/4-1 

; do next long of screen nenory 

; get s«iie black 

; do next long of screen ntentory 
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MOVE.L 


D0,(A1)+ 


; do last long of screen nemry 




BRA.S 


34 




32 


MOME.W 


«32767,D1 


zap total of 12Bk for 8LM 


33 


MWE.L 


DOj(Al)+ 






DBF 


Dl,33 




34 


MOVE 
RTS 


i»C101,CRTR0U(A3) 


set starting cursor location 


ESCY 






clear fpore cursor loc to end of screen 




CHP.U 


|{$0101,CRTRCW(A3) 


is this at top of screen? 




BEQ.S 


ESCSTAR 


yes, do full screen then 




HOME 


CRTR0W(A3),-<SP) 


save current location 




CMP.B 


»1,CR7C0L(A3) 


, is it at left? 




BEQ.S 


31 


yes, save schbc time 




BSR.S 


ESCT 


, no, clear end of this line 




ADDQ.B 


«1,CRTR0W<A3) 




31 


CLR.B 


CRTC0L<A3) 


' and pretend at start of next line 




MWE 


lt33,Dl 


1 compute rows to clear 




SUB.B 


CRTR0W(A3),D1 






BLE.S 


39 


skip out if none 




MULU 


RL{]NGS(A5),D1 


else, compute loop values 




BSR 


SETAl 


setup Al uiith address 


32 


CLR.L 


(Al)+ 


and do it to it 




SUBQ 


itl,Dl 






BGT.S 


32 




39 


MOVE 

n-rr 


<SP)4,CRTR0W<A3> 


restore correct cursor location 



PUTC The real worker of this whole mess. On entry, DO has 
the byte to be output. We are responsible for putting it out (if 
a valid byte), updating CRT pointers, etc. We also use CTLSKNT 
as a ctrl-S emulation function. 



PUTC 



muM 

BEQ.S 


«$7F,00 
32 


CLR.U 


01 


MOVE.B 

LSL 

JMP 


CRTSTAT(A3),Di 

li2,Dl 

PUTCTBL<D1) 


32 RTS 




PUTCTBL JMP 


PUTCO 


JMP 


PUTCi 


m? 


PUTC2 


JMP 


PUTC3 


JMP 
1 


PUTC4 


PUTCO 

SUB.B 


it«20,D0 


BLT 


PUTSPCL 


CMP.B 
BLE.S 


«*5F-$20,D0 
30 


SUB.B 


«420,D0 



DO is data 

make sure of upper stuff 
NUL doesn't do anything 
handle state simulation 

I QUAD FOR JUMP INDEX 

; NULs are totally ignored 



state 0, normal stuff 
check it for graphic syiBbol 
if special then go do it 



; make upper case 
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90 


LEA 


F(KrTBL,AO 




BRA.S 


32 


ai 


AOD.U 


IH4,A7 


32 


MOME.B 


lt6,D3 


33 


MOVE.B 


(A0)+,D1 




MOVE.B 


D1,-<A7) 




^D.B 


it$FC,(A7) 




AND.B 


«3,D1 




BEQ.S 


35 




SUB.B 


D1,D3 


34 


MOME.B 


(A7),-<A7) 




SUB.B 


«1,D1 




BNE.S 


34 


35 


SUB.B 


itl,D3 




BPL.S 


33 




SUB.B 


itl,DO 




BPL.S 


31 




CLR.B 


-<A7) 




BSR.S 


SETAl 




ADD.U 


R0y8BTS<A5),Ai 




MWE.W 


«8,D0 


36 


SUB.U 


R0UBYTS(A5),A1 




MOUE.B 


<A7)+,(A1) 




SUB.U 


ltl,DO 




BNE.S 


U 




BRA 


PUTFF 


PUTCl 








CHP.B 


lt$3D,D0 




BNE.S 


31 




MWE.B 


II2,CRTSTAT(A3) 




RTS 




31 


CLR.B 


CRTSTAT<A3) 




CMP.B 


m^,m 




BEQ.S 


ESCT 




CHP.B 


lt$59,D0 




BEQ.S 


ESCY 




OiP.B 


»2A,D0 




BEQ.S 


ESCSTAR 




RTS 




PUTC2 








SUB.B 


it$lF,DO 




MOVE.B 


D0,CRTR0U(A3> 




MWE.B 


»3,CRTSTAT<A3) 




RTS 




PUTC3 








SUB.B 


#*1F,D0 




HOgE.B 


00,CRTCOL(A3) 




CLR.B 


CRTSTAT(A3) 




OiP.B 


1I32,CRTRI]U<A3) 




BLS.S 


31 




MWE.B 


»32,CRTR0U(A3) 


31 


MIWE.U 


R0UBYTS<A5),Di) 




SUB.U 


112, DO 




CMP.B 


CRTCOL(A3),D0 




6HI.S 


32 



delete bytes irm last loop 
get 7 more bytes 
next byte 

mask off repeat bits 
extract repeat count 

account for repeat count 

push for each repeat count 

deer counter for next byte 

deer character counter 

; get screen ptr to Al 



share code to advance cursor 

ESC was Just seen 
ESC-<= (cursor addressing) 

and uait for Y value 

reset state for the rest 
ESC-T, erase to end of line 

ESC-Y, erase to end of screen 

ESC-», erase screen 

none of the above 

ESC-^ seen, expect row value 



} ESC-=, Y, expect column value 



nake limit checks nm 
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MIWE.B D0,CRTCOL(A3) 






32 


RTS 






PUTC4 


CLR.B CRTSTAT<A3) j 
^DI #$7F,D0 
SUB lt$20,D0 
BLE.S 32 
HOVE DOr<SP) 


handles die 


expansion 


ai 


HOVE.B it$2D,D0 
BSR PlfTC 
SUBQ «1,<SP) 
B6T.S 31 
ADDQ «2,SP 






32 


RTS 






FONTTBL 




^ont table 


opJQin here ^olks 


.BYTE 


$00+3,*00+2 


(space) 




.BYTE 


*10+3,*00+l,$10 


t 




.BYTE 


$48+2, $00+3 , 


1 




.BYTE 


$48+l,$FC,$48,$FC,$48+l 


it 




.BYTE 


$10,$3C,$50,$38,$14,$78,$10 j 


$ 




.BYTE 


$00,$C4,$C.8,$10,$20,$4C,$8C 


% 




.BYTE 


$<i0,$90+l,$60,$94,$88,$74 


& 




.BYTE 


$0B,$10,$20,$00+3 


f 




.BYTE 


$08,$10,$20+2,$10,$08 


< 




.BYTE 


$40,$20,$I0+2,$20,$40 


) 




.BYTE 


$10,$54,$38,$7C,$38,$54,$10 i 


« 




.BYTE 


$00,$I0+1,$7C,$10+1,$00 


+ 




.BYTE 


$00+3, $30+1, $60 


1 




.BYTE 


$00+2,$FC,$00+2 


- 




.BYTE 


$00+3,$00,$30+I 


, 




.BYTE 


$00,$04,$08,$10,$20,$40,$80 


/ 




.BYTE 


$78,$84,$8C,$B4,$C4,$84,$78 







.BYTE 


$10,$30,$50,$10+2,$7C 


1 




.BYTE 


$78,$84,$04,$18,$60,$80,$FC 


2 




.BYTE 


$78 ,$84 ,$04, $38 ,$04, $84 ,$78 


3 




.BYTE 


$08,$i8,$28,$48,$FC,$08+l 


4 




.BHE 


$FC,$80,$F0,$08,$04,$88,$70 


5 




.BYTE 


$38,$40,$80,$F8,$84+1,$78 


6 




.BYTE 


$FC, $84 ,$08, $10, $20+2 


7 




.BYTE 


$78,$84+l,$78,$84+i,$78 


8 




.BYTE 


$78,$84+l,$7C,$04,$08,$70 


9 




.BYTE 


$00+1, $30+1, $00, $30+1 


; 




.BYTE 


$00,$30+l,$00,$30+l,$60 


1 




.BYTE 


$08,$10,$20,$40,$20,$10,$08 


< 




.BYTE 


$00+l,$F8,$00,$F8,$00+l 


= 




.BYTE 


$40,$20,$10,$08,$10,$20,$40 


> 




.BYTE 


$78,$84,$04,$18,$20,$00,$20 


? 




.BYTE 


$38,$44,$94,$AC,$98,$40,$3C 


3 




.BYTE 


$30,$48,$84,$FC,$84+2 


A 




.BYTE 


$F8,$44+1,$78,$44+1,$F8 


B 




.BYTE 


$78,$84,$80+2,$84,$78 


C 




.BYTE 


$F8,$44+3,$44,$F8 


D 




.BYTE 


$FC,$80+1,$F0,$80+1,$FC 


E 




.BYTE 


$FC , $80+1, $F0, $80+2 


F 




.BYTE 


$78,$84,$80,$9C,$84+1,$78 


r 6 




.BYTE 


$84+2, $FC, $84+2 


K 
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.BYTE $38,$10+3,$10,«8 

.BYTE ilC,$08+3,$88,$70 

.BYTE $84,$88,$90,$E0,$90,$88,*84 

.BYTE $80+3,*80*i,$FC 

.BYTE *84,*CC,*B4+l,$84+2 

.BYTE *84,$C4,$A4,$94,$8C,*84,$84 

.BYTE *78,$84+3s$84,$78 

•BHE $F8,$84+1,$F8,$8042 

.BYTE $78,*84+2,*94,$88,*74 

.BYTE «F8,$84+1,$F8,$90,$88,$84 

.BYTE $78,*84,$80,$78,*04,$84,*78 

.BYTE $7C,$10+3,$10+1 

.BYTE «84+3,$84+l,$78 

.BYTE f8442,$48+l,*30+I 

.BYTE $84+2,$B4+l,«CC,$84 

.BHE f84+l,*48,f30,$48,i844l 

.BYTE «44+2,$38,$10+2 

.BYTE *FC,$04,f08,$30,$40,$80,*FC 

.BYTE $78,«40+3,*40,$78 

.BYTE $00,$80,*40,$20,$10,$08,$04 

.BYTE $78,$08+3,$08,$78 

.BHE $I0,$28,*44,$0043 

.BYTE $00+3,*00+l,*FC 

.BYTE 



I HUST COME OUT TO 7 BLOCKS!!!!! 

.IF FIXCONTRAST 
.BLOCK 424,0 
.ELSE 

.BLOCK 474,0 
.ENDC 

; Now follows the 1 block of reount table/volume entry information 

.INCLUDE MWD-HD/MountTable.text | duraniy niount table/woluroe entries 

.END 
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FILENAME: MWInstall -MWI/ProBootDrMr 

Block boot code for Monitor system booting -from a Profile 
Changes: 
2-21-85 RDC Change setting of UIA DDRB register so DIAG line <bit 6) is input 



; PIA REGISTERS for profile disk interface 

} output regs 

; input regs 

5 data direction regs 



ORB 


EQU 





ORA 


EQU 


8 


IRA 


EQU 


ORA 


IRB 


EQU 


ORB 


DDRB 


EQU 


$10 


DDRA 


EQU 


$18 


ACR 


EQU 


*58 


PCR 


EQU 


$60 


IFR 


EQU 


$68 


lER 


EQU 


$70 


NHS 


EQU 


$78 


CMDSI2E 


EQU 


4 


DSKBLK 


EQU 


512 


PCMNDS2 


EQU 


5 


BLKSIZE 


EQU 


255 


PHDRSIZ 


EQU 


9 


; OFFSET EQUS 


for d 


lOCMD 


EQU 


-4 


lODRV 


EQU 


-3 


BLOCKL 


EQU 


-2 


BLOCKH 


EQU 


-1 


; OFFSET equal 


tes fo 


PCMND 


EQU 


-6 


BLKH 


EQU 


-5 


BLKM 


EQU 


-4 


BLKL 


EQU 


-3 


RETRY 


EQU 


-2 


THRESH 


EQU 


-1 



aux control 

peripheral control 

int flags 

int enable 

reg A no hand shake 

number of bytes in cmd string 

number of bytes in a block 

bytes-1 in profile cmd string 

words-1 in profile block 

words-1 in profile header 



BOOT BLOCK ZERO STUFF 



Prof i leBoot,A7 



m^E #$2700, SR 

LEA 

MO^EQ ttSjDl 

MOME.L D1,A2 

MOME.L #$FCD901,A4 

MO^^EQ #0,00 



; = $46FC2700, first long on disk 

; Both block count & address of exception 

; Lisa base address 



[Date 3/Apr/865 File -#2M2-hd/probootdrMr .TEXT] 



Page 1 



BUSERR 



MO^^E.L 


<A2),A1 


LEA 


BUSERR, AO 


mo^;e.l 


A0,<A2) 


TST.L 


$400000 


MOgE.L 


$198 ,A4 


MOk^EQ 


#1,D0 


MOUE.L 


A1,<A2) 


MOME.B 


D0,*14C 



MO'v'E.B tt$0A,PCR<A4) 
MOUE.B #*00,DDRA<A4) 
MO'v'E.B #*18,0RB<A4) 



jRDC 




MOUE.B 


#*3C,DDRB< 


;RDC 




MOME.L 


#LDRL0C,A3 


CLR.L 


D3 


MOME.L 


D1,-<A7) 


31 MO'v'E.L 


A7,D1 


CLR.W 


-<A7) 


MOME.L 


A7,D0 


MOk^E.L 


A4,-<A7) 


MO^^E.L 


D0,-<A7) 


MOME.W 


#1,-<A7) 


MOUE.L 


D1,-<A7) 


MO'v'E.L 


D3,-<A7) 


MOVE.L 


A3,-<A7) 


BSR 


PDSKRD 


TST.W 


<A7) + 


BNE.S 


33 


ADD.W 


#512, A3 


ADD.L 


#i,D3 


TST.L 


<A7) 


BNE.S 


31 


JMP 


-7*512<A3) 


33 LEA 


ERRMSG,A3 


SUB.L 


A2,A2 


MO^^EQ 


#23, DO 


JMP 


ROMEPT 



; Set up exception handler 

; Read ROM on 6LM, Bus Error on Lisa 
; Get GLM base address 



; Set GLM Flag <0=LISA,1=GLM) 

; set Ctrl CA2 pulse mode strobe 

; set port A bits to input 

; en=true, dir=in, cmd=-false 

; set port B bits 0,l,6,7=in, 2,3,4,5=oyt 



; COUNT := 8 

J RC := 

I BASEADDRESS 

J 3RC 

J DRIME 

; 3C0UNT 

J BLKNUMBER 

J 3BUFFER 

I RC = 0? 



; bump 3bu-ffer by block size 
J bump blocknumber by 1 
J COUNT = ? 



FINDD2 



WFBl 



Sf4DRl 



WFNBl 



MO^^E.B 


tt*08,0RB(A0) 


MO'v'E.B 


#*00,DDRA<A0) 


BTST 


ttl,ORB<AO) 


BNE.S 


WFBl 


MO'v'E.B 


IRA<A0),D1 


MO'^^EQ 


#0,D0 


CMP.B 


D2,D1 


BNE.S 


SNDRl 


MOMEQ 


tt*55,D0 


MOVE.B 


#*00,ORB<A0) 


MO'v'E.B 


#*FF,DDRA<AO) 


MOUE . B 


D0,ORA<A0) 


MO'v'E.B 


#*10,0RB<A0) 


BTST 


#1,ORB<AO) 



J en=true, dir=in, cmd=true 
J set port A bits to input 
J wait -for busy 

; get port A in Dl 

I did pippin return state requested ? 



en=true, dir=out, cmd=true 
set port A bits to output 
send reply 00 or 55 
en=true, dir=out, cmcN-false 
wait for not busy 
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BEQ.S 


WFNBl 


MO'v'E.B 


#*00,DDRA<AO) 


MO's^E.B 


#*18,ORB<A0) 


TST.B 


DO 


RTS 





STATOl 


MO's^E . L 


#1,D2 




BSR.S 


FINDD2 




BNE.S 


C0PY6 




BSR.S 


FINDD2 




BEQ 


PDSKERR 


C0PY6 


MO^E.B 


#*10,0RB<A0) 




MOk^E.B 


tt*FF,DDRA<AO) 




LEA 


-6<A<5),A1 




MOUEQ 


#6,D2 


COPYSIX 


HOME . B 


<A1),NHS<A0> 




MOUE.B 


<A1)+,ORA<AO> 




SUB.W 


«i jD2 




BNE.S 


COPYSIX 




RTS 




STRTRD 


MOME.L 


22<A6),A0 




CLR.W 


<A0) 




MO^^E.L 


26<A6),A0 




MOME.B 


ttO,PCMND<A6) 




MOUE.B 


13<A6>,BLKH<A6) 




MO'v'E.B 


14(A6),BLKM<A6) 




MOVE.B 


15<A6),D0 




MOUE.B 


DOjDl 




TST.W 


-8<A6) 




BEQ.S 


31 



REMAP 



MO^^EQ 


#-•$10, Dl 


AND.B 


DOjDl 


AND.W 


#*OF,DO 


ADD.B 


INTRL's^<DO),Dl 


MOV^E.B 


D1,BLKL(A6) 


MO'v'E.B 


ttlO,RETRY<A6) 


MOUE.B 


#4,THRESH<A6) 


BSR.S 


STATOl 


MO's^E.L 


#2,D2 


BSR.S 


FINDD2 


BEQ 


PDSKERR 


MOVE.B 


IRA<A0>,-4<A6) 


MO'v'E.B 


IRA<A0>,-3<A6:) 


MO'v'E.B 


IRA<A0),-2<A6) 


MOVE.B 


IRA<A0),-1<A6) 


RTS 





set port A bits to input 
en=true, dir=in, cmd=-false 
SET CC HERE TO SHARE CODE 



try to -find state 01 

if state 01 was -found then 

go send command bytes else 

try again, if state 01 not found then 

return disk error 

en=true, dir=out, cmd=false 

set port A bits to output 



set RC to zero 

get base address 
set command to read 
set block number 

; Isb of block number 



= *F0 

mask h igh 4 bi ts 

mask low 4 bi ts 

add in remapped low 4 bits 

replace block number 

set retry count 

set threshhold 

get 01 byte and send read command 

get 02 byte 

disk error if not in read state 

get pippin status 
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miRlK} .BYTE 0,5,10,15,4,9,14,3,8,13,2,7,12,1,6,11 ; 9:1 INTERLEAVE 

PROCEDURE PDSKRD (BASEADDR: LONG INT; 

MAR RC: INTEGER J 
DRI^;E: INTEGER J 
"viAR COUNTsLONGINTj 
BLKNUMBER:LONGINT; 
V;AR BUFFER); 

Stack: 







26 


base address 








22 


3RC 


ptr to word 0. .255 






20. .21 


dr iye 


word 






16 


SCount 


ptr to long 






12. .15 


Block Number 


long 






8 


SBu-ffer 








4 


Return Address 











Old A6 








-6 


Command Bu-ffer 








-8 


Header -flag 








-28 


Header Bu-f-fer 




PDSKRD 


MOUEQ 
BRA.S 


«1,D0 
LDSKRD 




; headers := true 


NDSKRD 


MOVEQ 


#0,D0 




; headers := -false 


LDSKRD 


LINK 


A6,#-28 







M0^;E.L 12<A6),D2 

ROL.L «8,D2 

BPL.S 31 

MOMEQ tt0,D0 



; cheap check for Block Number = *FFFFFF 



; headers := -false 



31 



RDNRES 



READHDR 



MOUE .W 

MO'v'E.L 

SUB.L 

BSR.S 

TST.W 

BPL.S 

BSR.S 

MOME.L 

TST.L 

BNE.S 

CLR.B 

LEA 

TST.W 

BEQ.S 

LEA 

MOk^E.W 

MO'v'E.B 

EOR.B 

MO'v'E.B 

MOVE.B 

EOR.B 

MOUE.B 



D0,-8<A6) 

16<A6),A0 

#1,(A0) 

STRTRD 

-2<A6) 

RDNRES 

STRTRD 

#3,D2 

-4<A6) 

PDSKERR 

Dl 

IRA<A0),A0 

-8<A6) 

RSKPHDR 

-28<A6),A1 



<A0),D0 

D0,D1 

D0,<A1)+ 

<A0),D0 

DOjDl 

DO,<Al)-^ 



; get 3count 

; decrement count 

; try read first time 



; try read second time 



;INIT CSUM 



GET BYTE FROM DISK 

INCLUDE IN RUNNING CHECKSUM 

r^^lD STORE IT IN BUFFER 

GET BYTE FROM DISK 

INCLUDE IN RUNNING CHECKSUM 

AND STORE IT IN BUFFER 
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RSKPHDR 


war 


u£. J Pitnu/ni/f^ 




MOME.L 


8<A6),Ai 


DCTAm P 


MOME.W 


#BLKSI2E,D2 


KtHuLr 


MO^^E.B 


<AO),DO 




EOR.B 


D0,D1 




MOME.B 


D0,<A1)+ 




MOUE.B 


<AO),DO 




EOR.B 


D0,D1 




MOUE.B 


D0,<A1)+ 




DBF 


D2,READLP 




TST.B 


Dl 




BEQ.S 


FINISH 




TST.W 


-8<A6) 




BEQ.S 


FINISH 




TST.B 


-22<A6) 




BPL.S 


FINISH 




MO'v'E.L 


#4,D2 


PDSKERR 


MOiviE.L 


22(A6),A0 




NES.B 


D2 




MO'v>E.W 


D2,<A0) 


FINISH 


UNLK 


A6 




MOUE.L 


<A7)+,A0 




ADD.y 


#22,A7 




JMP 


<A0) 



; REPEAT UNTIL DONE 

} get address o-f BUFFER 

J read the data bytes 
GET BYTE FROM DISK 
INCLUDE IN RUNNING CHECKSUM 
AND STORE IT IN BUFFER 
GET BYTE FROM DISK 
INCLUDE IN RUNNING CHECKSUM 
AND STORE IT IN BUFFER 
REPEAT UNTIL DONE 



; set RC 

; error is 128. .255 
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FILBWiE: MyiNSTALL-MWI/Pro^ileBootBlks.text 
Monitor Profile bootblocks lor MacUorks 



Modified: 
10-29-84 



5-NOV-84 
<23Apr85> 



Meraory Maps 
high men) 



stack base 



by Ken Krugler <renioved print/raouse stuff) 
NOTE! boot code part of must be 7 block <$E0O) long, 
so if anything changes, adjust .BLOCK at end 
Cleanup, name changing. 
RDC Add support for square pixel screen 

ReiBove initialization of screen to white (leave boot ROM desktop) 



low fseiB 



♦ Upper Screen Memory + 


+ Lower Screen Memory + 


+ Mon i tor Load Area + 


* Free + 


♦ Loader read by BlkO ♦ 


+ Initial Screen Memory + 


+ Directory Buffer + 


* Stack and Globals « 





i%m) = ($174) 



($110) = (*170) 



($10C) 



$20800 



$10000 



$10000 
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,PROC 


Pro4i]eBoot,0 


ROHEPT EQU 


*FE0084 


CpuROHid EQU 


*FE3FFC 


LDRLOC EQU 


$20800 


LOHEM EQU 


*02A4 


KIHEH EQU 


$0294 


TMSBASE EQU 


*D00-40 


STKBASE EQU 


$10000 


ADDRSYM EQU 


$2000 


VIDLATCH EQU 


$FCE8Q0 


COPSDRB EQU 


4 


FDIR EQU 


4 


COPSIFR EQU 


$1A 


PORTA EQU 


2 


CRTROW EQU 





CRTCOL EQU 


CRTROU+1 


CRTSTAT EQU 


CRTCQL+i 


CTLSFLG EQU 


CRTSTAT+1 



entry point for ROH reonitop 

Lisa CPU RCH version id (3 = square pixels) 

load pt for full loader at $20800 

]m nemory address 

liigh niereory address 

the HSBASE for the system 

Address of base of stack 

Address for monitor symbols 

address of the Mideo latch 

Dir Reg B 

Bit number for Floppy Disk Int Request 

Interrupt flag register 

Offset to Port A 

BYTE, ROU FOR SIHUU^TED CRT 

BYTE, COLUMN FOR SIMULATED CRT 

BYTE, STATE OF CRT SIMULATOR 

BYTE, UNUSED 



<23Apr85> 



BUFSZ 


EQU 


24576 


BUFBK 


EQU 


BUFSZ/512 


BLKSZ 


EQU 


512 


MSGSZ 


EQU 


2048 


DIRSZ 


EQU 


2048 


DIR 


EQU 





BUF 


EQU 


-BUFSZ 


MSGS 


EQU 


BUF-MSGSZ 


BLK 


EQU 


MSGS-BLKSZ 


LOADANY EQU 


BLK-2 


LOADSYM EQU 


LOADANY-2 


PRTINFO EQU 


LOADSYM-2 


MSBASE 


EQU 


PRTINFO-4 


ROUBYTS EQU 


MSBASE-2 


R0W8BTS EQU 


ROUBYTS-2 


RBYTES 


EQU 


R0U8BTS-2 


RLONGS 


EQU 


RBYTES-2 


CQPSMIA EQU 


RLONGS-4 


BASEADR EQU 


COPWIA-4 


BLKOFS 


EQU 


BASEADR-2 


PAINTW 


EQU 


BLKOFS-2 


LAST6LB EQU 


PAINTW 



A5+ (growing directory upwards) 

object file buffer, MUST be first ! 

message buffer for prtname 

single block for CONFIG and BOOTFILES 

indicates a file was loaded 

load monitor symbols flag 

print info flag 

global s for character printing 

bytes for each scan line 
bytes to offset to 8th scan line 
bytes for each chr row 
long-words for each chr row 
address of via for the COPS 
address of pia for the PROFILE 
offset of root volume 
; paint screen white flag 



} directory entry equates 

FSTBLK EQU ; dir entry for DFIRSTBLK 

LSTBLK EQU 2 j dir entry for DLSTBLK 

FKIND EQU 4 j dir entry for file kind, status 

; case fkind = securdir or untypedfile 

OVID EQU 6 5 dir entry for title field 

OEOMBLK EQU 14 j dir entry for end of volume field 

DNUMFLS EQU U ; dir entry for number files 
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DLOADTM EQU 18 

DLASTBT EQU 20 
5 case Ikind = norntal files 

DTID EQU 6 

LSTBYTE EQU 22 

DACCESS EQU 24 

DELENG EQU U 



J reost recent date setting 

dir entry for title field 
dir entry for lastbyte 
dip entry for date 
length in bytes of dir entry 



i BOOT BLOCK ZERO CODE 

■INCLUDE MyD-HD/PROBOOTDRVR.TEXT ; Block boot code 



ERRMSG .ASCII 'ERROR ' 
.UORD 0,0 

i START OF SECOr^DARY LOADER 

TPLUS512 



MOVE 


#$2700, SR 


MOVE.L 


ilSTKBASE,A7 


LINK 


A5,«LASTSLB 


MOME.W 


ltO,PAIKTW<A5) 


MOVE.W 


ltO,MS6S<AS) 


MOME.U 


liO,LOADM<A5) 


MOVE.U 


«0,L0ADSYM<A5) 


MOVE.W 


ltO,PRTINFO(A5) 


TST.B 


$14C 


BEQ.S 


35 


MOVE.L 


«$18000,DO 


MOVE.L 


DO ,$110 


MOVE.L 


DO ,$160 


MOVE.L 


lt$CCOOOQ,DO 


MOVE.L 


DO ,$170 


MOVE.L 


DO ,$174 


MOVEQ 


«74,D0 


MOVE.L 


#$D00001,COPSVIA(A5) 


MOVE.L 


$198,BASEADR(A5) 


Bi^.S 


36 


35 MOME.L 


»$18000,D0 


MOUE.L 


DO ,$110 


MOME.L 


DO ,$160 


MOVE.L 


DO ,$170 


HOVE.L 


DO ,$174 


CMP.B 


lt3,CpuR0Hid 


6NE.S 


33 


HOMEQ 


«76,D0 


BRA.S 


34 


33 MOVEQ 


1190, DO 


34 MOVE.L 


«$FCDD81,C0PSMIA(A5) 



MQVE.L WFCDDBl 
MOME.L Jf$FCD901 



; pad out block code to 512 bytes long 



; ProfileBoot + 512 bytes !! (Must be) 



I don't change screen 



<23Apr85> 



; GLM default screen locations 



GLM row bytes 

VIA address for Keyboard and Tiraers 

Get base address for boot PROFILE 



; LISA default screen locations 



check for square pixel Lisa 

skip if not 

square pixel row bytes 



LI&^ row bytes 

Via 2 base for NEW k OLD I/O boards 

Base address for PROFILE (built-in) 



<23Apr85> 
<23Apr85) 
<23Apr85> 
<2a^pr85> 
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36 nmEM 


D0,R0WBYTS(A5) 


MOME.W 


D0,D1 


LSL.W 


itS.Dl 


MWE.W 


D1,R0W8BTS<A5> 


MULU 


«10,D0 


MOME.W 


D0,RBYTES(A5) 


LSR.W 


it2,D0 


MIWE.U 


D0,RL0NGS(A5) 


BSR 


SETVIDP 


HWE.L 


«LDRLOC+$E54,A0 


NOME.U 


(AO),DO 


LSL.W 


il3,D0 


HOME.U 


D0,BLK0FS<A5) 


PEA 


DIRCAS) 


NOME.W 


»2,-<A7) 


HWE.W 


114, -(A7) 


BSR 


READBLKS 


LEA 


DIR<A5),A0 


CMP.W 


it42,2(A0} 


BNE.S 


32 


MOME.W 


DNUMFLS(AO),DO 


ADD.U 


itl,DO 


MULS 


ltDELEN6,D0 


SUB.W 


itDIRSZ,DO 


BMI.S 


32 


ADD.U 


11511, DO 


LSR.U 


«8,D0 


LSR.U 


81, DO 


CMP.W 


it3<<.,D0 


BLT.S 


31 


MOVE.U 


it36,D0 


31 PEA 


DIRS2(A0) 


MOVE.W 


l»6,-(A7) 


MOME.W 


D0,-<A7) 


BSR 


READBLKS 


32 CLR.W 


-(A7) 


PEA 


CONFIGF 


MOVE.W 


#1,-<A7) 


PEA 


D1R<A5) 


BSR 


DIRSRCK 


TST.W 


<A7) 


BNE.S 


FCONFIG 


PEA 


CONFIGF 


BRA 


ERROR 


FC0NFI6 LEA 


DIR<A5),A0 


ADD.W 


<A7)+,A0 


PEA 


BLK(A5) 


M(WE.W 


(A0),-<A7) 


MWE.W 


}tl,-(A7) 


BSR 


READBLKS 


LEA 


BLK(A5),A0 


ADD.W 


«6,A0 


31 MOUE.W 


(AO)+,DO 



Read the directory 



Read the directory 



Read the CONFIG.DATA ^ile 



Get next count word 
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32 



BEQ.S 
ROR.U 
NOME.L 
ROR.U 
SWAP 
ROR.U 
SWAP 
MOVE.L 
HOME.B 
SUB.U 
BNE.S 
BRA.S 
DATAEND TST.U 
BEQ.S 
HOVE.L 
MQME.L 
SUB.L 
HOME.L 
SUB.L 
MOME.L 
SUB.L 
MQVE.L 
HOVE.L 
SUB.L 
HOVE.L 
MOVE.L 
ASR.L 
MOME.L 
6SR 
CLR.L 
MOVE.L 
PEA 
BSR 
SUB.L 
PEA 
BSR 
CLR.U 
PEA 

MOUE.U 
PEA 
BSR 
TS7.U 
BNE.S 
PEA 
BRA 
LEA 
ADD.U 
PEA 

MOVE.U 
HOME.U 
BSR 
PEA 

HOUE.L 
TST.B 
BEQ.S 
CLR.U 



31 



32 



NEXTF 



DATAEND 

«8,D0 

(A0)+,D1 

«8,D1 

Dl 

lt8,Dl 

Dl 

D1,A1 

<A0)+,<A1)+ 

lil,DO 

32 

31 

BLK(A5) 

31 

HIMEM,DO 

L0MEM,D1 

D1,D0 

D0,D2 

«1,DD 

DO ,$114 

«$7FFF,D0 

DO ,$160 

DO ,$174 

lt«8000,D0 

DO ,11 10 

D0,«170 

i(l,D2 

D2,$13C 

SETVIDP 

$118 

$110,$10C 

SCREENB 

PRTN^E 

«$1000,$10C 

DBGDATA 

PRTNtflE 

-(A7) 

BOOTFLS 

}tl,-(A7) 

D1R<A5) 

DIRSRCH 

(A7) 

32 

BOOTFLS 

ERROR 

DIR(A5),A0 

(A7)+,A0 

BLK(A5) 

<A0),-<A7) 

«1,-<A7) 

READBLKS 

BLK<A5) 

(A7),A0 

(AO) 

LOADMON 

-(A7) 



; Get next address word 



; Copy each data byte 



; neiBory size 

; meiiory top 

; upper screen base 

; Ic^er screen base 

5 default stack ptr 
; APPLE not available 

I code buffer 



J Read the BOOTFILES.DATA file 
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SUB.B 


it$20,(A0) 


MOgE.L 


A0r<A7) 


MOVE.U 


lll,-<A7) 


PEA 


DIR(A5) 


BSR 


DIRSRCH 


TST.W 


<A7) 


BNE.S 


31 


MWE.W 


lt4,D0 


TST.W 


<A7)+ 


BRA 


ERROR 


31 LEA 


DIR<A5),A0 


ADD.U 


<A7)+,A0 


MOME.L 


A0r<A7) 


BSR 


LOAOIT 


HWE.L 


A5,-<A7) 


NWE.L 


A7,STKBASE 


HOVE.L 


$10C,AD 


JSR 


(AO) 


MOVE.L 


STKBASE,A7 


HWE.L 


(A7)4,A5 


MQ^E.U 


}I1,L0AD/VIY<A5) 


MOME.L 


<A7),-<A?) 


BSR 


PRimiE 


ADD.L 


ltl6,<A7) 


BRA 


NEXTF 


LOAOMON CLR.W 


-<A7) 


PEA 


MONITOR 


HOME.W 


ill,-<A7) 


PEA 


DIR(A5) 


BSR 


DIRSRCH 


TST.U 


<A7) 


BNE.S 


31 


PEA 


MONITOR 


BRA 


ERROR 


31 LEA 


DIR<A5),A0 


ADD.U 


<A7)+,A0 


MIWE.L 


A0,-<A7) 


BSR 


LOADIT 


PEA 


MONITOR 


BSR 


PRTNAME 


TST.W 


L0ADSYM(A5) 


BEQ.S 


JMP2M0N 


CLR.W 


-(A7) 


PEA 


SYMBOLS 


MWE.W 


«1,-(A7) 


PEA 


DIR<A5) 


BSR 


DIRSRCH 


TST.W 


(A7) 


BEQ.S 


JMP2M0N 


LEA 


DIR<A5},A0 


ADD.W 


<A7)+,A0 


MCWE.L 


A0,-<A7) 


BSR 


LMONSYM 


PEA 


MS66 


BSR.S 


WRTSTR 



to expose address of filename 



Load the next object file 



Load the Monitor object 



Load the Monitor symbols 
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JHP2MQN BRA.S 32 



32 nm 

HOVE 
HOME.L 
MOVE.B 
MOVE.B 
OR.B 
BCLR 
MOVE.B 
MOVE.L 
WA1T4RS DBF 
BSET 
MOUE.B 
HOWE 
NOME.L 
JMP 



SR„-<A7) 

«*2700,SR 

C0PSVIA<A5),A0 

CDPSDRB(AO},DO 

D0,D1 

81,00 

»0><A0) 

00,COPSDRB<AO) 

«5200,D2 

D2,UAIT4RS 

i)l,(AO) 

D1,COPSDRB(AO) 

<A7)+,SR 

$10C,A0 

<A0) 



Reset the Keyboard 

Ints off 

Cops. Base Address 

Get Dir B reg 

save it 

nake bit output 

set reset signal 

nake sure of Dir B 

delay !2nis 

reiBove reset signal 
restore Dir B reg 
Ints on 

Go For It ! 



URTSTR HOVE.L 
MOME.L 
CLR.U 
MWE.B 
BRA 



4(A7),A2 

<A7)+,(A7) 

D2 

<A2)+,D2 

WRITE 



ERROR PEA 

MOME.W 
BSR.S 
ERR0R2 BSR.S 
HANG BRA 



HSG2 

<t$lllE,MSBASE(A5) 

WRTSTR 

yRTSTR 

HANG 



I row=17, co1=30 



SCREENS .BYTE 
.ASCII 



10 
'SCREENBASE ' 



DB6DATA .BYTE 
.ASCII 



13 
'DEBUGGER.DATA' 



C0NFI6F .BYTE 
.ASCII 



11 
'CONFIG.DATA' 



BOOTFLS .BYTE 
.ASCII 



14 
'BOOTFILES.DATA ' 



MONITOR .BYTE 
.ASCII 



11 
'MONITOR.OBJ' 



SYMBOLS .BYTE 
.ASCII 



MSGl 



.BYTE 
.ASCII 



15 
'MONITOR.SYMBOLS' 

15 

'Disk Read Error' 



MSG2 .BYTE 15 

.ASCII 'Failed to find ' 

MSG3 .BYTE 14 

.ASCII ' is loaded at ' 
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MS64 


.BYTE 


45 




.ASCII 


'About to boot, press Mouse Bu 


MS65 


.BYTE 


13,13,13 




.ASCII 


'Booting ...' 


HS66 


.BYTE 


24,13 




.ASCII 


'Loaded Hon ! top syrebol s' 




.BYTE 


13,0 


PRTSTR 


LINK 


A6,liO 




TST.U 


L0AD^(A5) 




6EQ.S 


31 




TST.W 


PRTINF0(A5) 




BEQ.S 


31 




LEA 


MSGS<A5),A2 




MQUE.W 


(A2)+,02 




BEQ.S 


30 




esR 


WRITE 




MOME.W 


II0,MSGS(A5) 


30 


MWE.L 


8(A6),-(A7) 




BSR.S 


URTSTR 




BRA.S 


33 


31 


LEA 


MS6S(A5),A0 




MOME.L 


AO.Al 




MOME.W 


(A1)+,D0 




ADD.U 


D0,A1 




CLR.W 


Dl 




MWE.L 


8(A6),A2 




MWE.B 


(A2)+,D1 




ADD.U 


D1,D0 




HOVE.W 


DO,<AO) 


32 


HWE.B 


<A2)+,(A1)+ 




SUB.U 


ltl,Dl 




Br4E.S 


32 


33 


UNLK 


A6 




MIWE.L 


(A7)+,(A7) 




RTS 




PRTWWE MOME.L 


(SP)+,(SP) 




RTS 





SETVIDP CLR.L MSBASE(A5) 



TST.W 
BEQ.S 



PAINTU<A5) 
33 



31 



BSR.S 31 

.BYTE 2,27,$2A,0 

BSR WRTSTR 



TST.B *14C 
BNE.S 33 
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33 



HWE.L 

ADD.L 

LSR.L 

LSR.L 

MWE.B 

RTS 



FILLBUF PEA 

MIWE.W 

MWE.L 

NOME.U 

SUB.U 

CMP.W 

BHI.S 

MOUE.W 

BRA.S 

HWE.W 

BSR 

ADD.W 

LEA 

RTS 



31 
32 



4160,00 

LOMEM,DO 

i»e,DO 

II7,D0 

DO.VIDLATCH 



BUF(A5) 

-2(A<i),-(A7) 

8<A6),A0 

2(A0),D0 

-2(Ai4),D0 

HBUFBK-l.DO 

31 

D0,-<A7) 

32 

ttBUFBK,-<A7) 

READBLKS 

ltBUFBK,-2<A6) 

BUF(A5),A0 



get screen start 

bias this by start o^ fBerBory 

and convert to 32k page 

set tiie video page latcli 



PROCEDURE U10NSYM<UAR DIRET^TRY) 
Stack 



8 Pointer to directory entry for symbols file 

4 Return address 

Old A6 

-2 Nextblock 

-6 4 BYTE VALUE 

-14 8 CHAR NAME 

-18 Address for ntonitor symbols 

-20 Counter 



LHONSYM LINK M,MB 

MOVE.L 8(A6),A0 

MQME.W (A0)r2(A6) 

BSR FILLBUF 

HQME.L IIADDRSYM,A1 

MOVE.L A1,-18<A6) 

31 MOyE.W #6r20<A(i) 

LEA -14<A6),A2 

34 mP.L A0,A5 
BNE.S 35 
MOVE.L A1,-<A7) 
BSR FILLBUF 
HOVE.L <A7)*,A1 

35 MOME.W (A0)+,(A2)+ 
SUB.U »1,-20(A6) 
BNE.S 34 

TST.L -14(A6) 

GNE.S 32 

TST.L -10(A6) 

BNE.S 32 



fill -14(Ad) thru -4<A6) 
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TST.L '6iM) 

BEQ.S 33 

32 HOUE.L -14(A6),<A1)* ; copy name 
MOVE.L -10(A6),(A1)+ 

MWE.L -6(A6),D0 ; copy value 

ADD.L $10C,DD 

HOME.L D0,(A1)+ 

BRA.S 31 

33 HOVE.L -18(A6),$404 
HOVE.L A1,*40A 
UNLK A6 

HWE.L (A7)+,(A7) 
RTS 

PROCEDURE LOADIT(MAR DIRENTRY) 

Stack 

8 Pointer to directory entry for this file 

4 Return address 



LOADIT 



31 



32 



33 



34 



D 


Did Ad 


-2 


NextblocR 


LINK 


A6,il-2 


MOVE.L 


8(A6},A0 


HiWE.W 


(A0),-2<A6) 


BSR 


FILLBUF 


CMP.B 


We5,(A0) 


BEQ.S 


32 


CLR.B 


<A0) 


ADD.L 


(AO),AO 


BRA.S 


31 


CLR.B 


<A0) 


MOUE.L 


(AO)+,DO 


TST.L 


(AO)t 


SUB.L 


«8,D0 


HOVE.L 


«10C,A1 


SUB.L 


D0,A1 


HOME.L 


A1,410C 


CHP.L 


A0,A5 


BNE.S 


34 


HOyEM.L D0/A1,-<A7) 


BSR 


FILLBUF 


MOVEH.L (A7)+,D0/A1 


HOME.U 


<A0)+,(A1>* 


SUB.L 


ii2,D0 


BNE.S 


33 


INLK 


A6 


MOME.L 


<A7)+,<A7> 


RTS 





DIRSRCH 



18 func result 
14 3FTID 
12 FINDPERM 
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8 3FDIR 








4 Return address 








Old M 




DIRSRCH LINK 


A6,iiO 






MOME.L 


8(A6),A1 


get ptr to dirbuf 




MWE.U 


«0,18<A6) 


return as default 




MOME.L 


IIDELEN6,D3 


initialize offset 




MWE.L 


14<A6),A0 


point AO at the filename 




MOVE.U 


DNUMFLS(A1),D! 


get number of files 




BEQ.S 


DIRSRCX 


number of files = ? 




ADD.U 


»DELEN64DTID,A1 


point Al at first entry 


DIRSRLP MIWEM.L A3/A4,-<A7) 


save A3 and A4 




MOVE.L 


A1,A4 


A4 is used for title compare 




MOVE.L 


A0,A3 


A3 is title to look for 




CLR.U 


D2 






HOgE.B 


<A0),D2 


length of name in bytes 


31 


CMPM.B 


(A3)+,<A4)+ 


check each byte for equal 




BNE.S 


32 






SUB.U 


ltl,D2 


compare length'^l bytes 




BCC.S 


31 






SUB.U 


«DTID,A1 


found it leave Al at start o 




HWEM.L (A7)+,A3/A4 


restore A3 and A4 




BRA.S 


34 




32 


HOVEM.L <A7)+,A3/A4 


restore A3 and A4 


33 


ADD.U 


liDELENG.Al 


skip to next dir entry 




ADD.U 


{IDELEN6,D3 


also update offset 




SUB.U 


ltl,Dl 


any files left ? 




BNE.S 


DIRSRLP 






BRA.S 


DIRSRCX 


file not found 


34 


MOVE.U 


12(A6),D0 


if f indperm = daccess.yearO 




HOUE.U 


DACCESS<A1),D2 






AND.U 


lifFE00,D2 






CMP.U 


l»C800,D2 






SNE 


D2 






AND.U 


ltl,D2 






CMP.U 


D0,D2 






BEQ.S 


35 






ADD.U 


«DTID,A1 






BRA.S 


33 




35 


MOME.U 


D3,18<A<$} 


dir5earch:=offset 


DIRSRCX UNLK 


A6 






MOVE.L 


(A7)+,A0 


pop return address 




ADD.U 


}I10,A7 


delete parameters 




JMP 


<A0) 





PROCEDURE READBLKS(UAR BUFFER; BLOCK, COUNT; INTEGER); 
Stack 

12 Address of buffer 

10 block 

8 count 

4 return address 

old A<S 
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READBLKS 





LINK 


M,m 






MOVE.W 


BLKOFS(A5),D0 






ADD.U 


D0,}0<A6) 




31 


TST.U 


8<A6) 






BEQ.S 


33 






MOVE 


SR,-<A7) 






MOVE 


it$2700,SR 






MOVE.L 


»lr<A7) 


COUNT != 1 




MOME.L 


A7,D1 






CLR.U 


-<A7) 


RC != 




MOME.L 


A7,D0 






MOVE.L 


BASEADR(A5),-<A7) 


BASE ADDRESS 




MOVE.L 


D0,-<A7) 


3RC 




MOVE.U 


«lr<A7) 


DRIVE 




MOME.L 


Dlr<A7) 


3C0UNT 




CLR.L 


DO 






MOVE.U 


mm,m 






MOME.L 


D0r<A7) 


BLKNUMBER 




MOME.L 


12<A6),-<A7) 


3BUFFER 




BSR 


PDSKRD 






TST.« 


(A7)+ 






BEQ.S 


32 






PEA 


MSGl 






BRA 


ERR0R2 




32 


TST.L 


(A7)+ 






MOVE 


(A7)+,SR 






SUB.U 


)tl,8<A6) 






ADD.W 


#1,10(A6) 






ADD.L 


11512, i2(A6) 






6RA.S 


31 




33 


UNLK 


A6 






MOME.L 


(A7)*,A0 






ADD.U 


JI8,A7 






JMP 


(AO) 




GETCOPS HWE.L 


C0PSVIA(A5),A0 


Get via base address 




MOVE.B 


COFSIFR(A0),D0 


Load interrupt flag register 




BPL.S 


GETCOPS 






BTST 


«1,D0 


Test for COPS interrupt 




BEQ.S 


GETCOPS 






MOVE.B 


PORTA(A0),DO 


, Get byte from COPS 




RTS 








STATE 3 


-- GET RESET CODE 




UAITR 


BSR 


GETCOPS 


discard reset code 




BRA.S 


NOKEY 






STATE 1 


- GET DELTA X 




UAITX 


BSR 


GETCOPS 


discard delta x 


} 
1 


STATE 2 


-- GET DELTA Y 
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; discard delta y 





NO KEY STROKE EXIT 


NOKEY 


CLR.W 
RTS 


Dl 




STATE G 


- GET A MOUSE 


GE7KEY 


BSR 


6ETC0PS 




BEQ.S 


WAITX 




CMP.B 


«$80,D0 




BEQ.S 


WAITR 




MOVE.W 


«l,Di 


J 


RTS 




WRITE 


LEA 


MSBASE(A5),A3 




TST 


D2 




6LE.S 


EXIT 




BSR.S 


CLRCUR 


URITEl 


MOVE.B 


(A2)+,00 




CMP.B 


#$OD,DO 




BEQ.S 


CRLF 




CMP.B 


lt$10,D0 




BEQ.S 


WRDLE 




BSR 


PUTC 


WRNEXT 


SUBQ 


«1,D2 




BGT.S 


WRITEl 


WREXIT 


BSR.S 


SETCUR 




6RA.S 


EXIT 


CRLF 


BSR 


PUTC 




MOVE.B 


««OA,DO 




BSR 


PUTC 




BRA.S 


WRKE)Cr 


URDLE 


MOVE.B 


lt4,CRTSTAT(A3) 




Bi^.S 


WI^EXT 


EXIT 


RTS 






Cursor 


routines. 


CLRCUR 






SETCUR 








BSR.S 


SETAl 




ADD.W 


R0W8BTS<A5),A1 




HOUE.W 


«8,D0 


31 


SUB.W 


R0WBYTS(A5),A1 




NOT.B 


<A1) 




SUB.W 


itl,DD 




M.S 


31 




RTS 





I Get byte, Mouse ? 



Reset code ? 



any at all? 

no, Just leave 
reiBove cursor once per call 

and loop thru buffer 
is this a CR ? 

yes, simulate extra stuff 
how about a DLE? 

yes, it's special too 



; then, set it on again 

} put out the explicit CR 
; then, the implicit LF 



; code is the same folks 

I set Al with proper byte address 

; then complement it 

; and thats all there is... 



SETAl Sets Al to proper address based upon 
current values of CRTROW and CRTCOL. 



[Date 3/App/86| File -lt2l»2-hd/prof ilebootblks.TEXTl 



Page 13 



SETAl 



CLR D3 

MOVE.B CRTR0W(A3),D3 

MULU RBYTES<A5),D3 

ADD RBYTES(A5),D3 

ADD.L $174,D3 

MOVE.L D3,A1 

CLR D3 

MOVE.B CRTC0L<A3),D3 

ADDA D3,A1 

R7S 



; note: we assume D3 is free 

D3 = byte offset of "CRT* 

plus an extra one 
addin real screen address 

and set it up 



; and add in column offset 



SCROLL - iBove contents of screen up one whole line 
Ue assume that we are at bottom line when called. CRTCOL will be 
left alone, but CRTROWwill be set at 32 



SCROLL 



31 



MOVE CRTR0W(A3)r<SP) 

MOVE ltf0100,CRTR0W(A3) 

BSR.S SETAl 

m>E.l A1,A0 

ADDA RBrrES(A5),AI) 

MOVE RL0N6S(A5),D1 

LSL.14 «5,D1 

MOVE.L <A0)+,(A1>+ 

SUBQ ltl,Dl 

BGT.S 31 

MOVE (SP)+,CRTR0W(A3) 

MOVE.B «32,CRTR0U(A3) 

RTS 



entry from anywhere 

save current COLuran 
and set to beginning of first row 
and get address of screen 

set from ptr also 

; set loop for long copies 
; 32»RL0NGS 



; restore old info 
; but peg at bottom 



PUTLF advance CRTROW; this may cause a scroll if at bottom 



PUTLF ADDQ.B #1 ,CRTRQW(A3) 

CMP.B II32,CRTR0U(A3) 

BLS.S 39 

BSR SCROLL 

39 RTS 



; skip if its ok 

; else, do a scroll operation 



PUTVT move cursor up one row; peg at top 

PUTVT SUBQ.B «1,CRTR0W<A3) 

BGT.S 39 

MQWE.B 111 ,CRTR0U(A3) 
39 RTS 

PUTBS move cursor left one position; 

PUTBS SUBQ.B HI, CRTCOL (A3) 

BGT.S 39 

MOME.B lll,CRTC0L<A3) 
39 RTS 

PUTFF move cursor right one position; 

PUTFF MOME.W R0UBYTS<A5> ,D0 
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29 



suB.y 


Jt2,DD 


ADDQ.B 


1I1,CRTCQL(A3) 


CHP.B 


CRTCOL(A3),D0 


BHI.S 


39 


HOME.B 


D0,CRTCOL(A3) 


RTS 





PUTSPCL Handle special 

as cursor controls and ESC non-sense. 



PUTSPCL 



31 



32 



39 



ESCT 



31 



32 



39 



ADD.B 

CMP.B 

BNE.S 

HOVE.B 

RTS 

CMP.B 

BNE.S 

HOME 

RTS 

CMP.B 

BEQ.S 

CMP.B 

BEQ.S 

CMP.B 

BEQ.S 

CMP.B 

BEQ 

OiP.B 

B^E.S 

MWE.B 

RTS 



lt$20,D0 
it$lB,DO 
31 
»1,CRTSTAT(A3) 

li$lE,DO 

32 

lt*III01,CRTR0U<A3) 

il$08,D0 

PUTBS 

«fOC,DO 

PUTFF 

ft$OB,DO 

PUTVT 

#$OA,DO 

PUTLF 

ii$OD,DO 

39 

#1,CRTC0L<A3) 



special ESC characters here 



MOME.W 

SUB.U 

SUB.B 

BLE.S 

BSR 

ADD.y 

MWE.U 

SUB.U 

CLR.B 

SUB.U 

BNE.S 

ADD.U 

SUBQ 

B6T.S 

RTS 



R0WBYTS(A5),D1 

«1,D1 

CRTC0L(A3),D1 

39 

SETAl 

R0W8BTS(A5),A1 

«i8,D0 

R0WBYTS(A5),A1 

(AD 

lll,DO 

32 

«1,A1 

ltl,Dl 

31 



ESCSTAR 



MOVE.L *174,A1 
MWE.L «0,D0 
TST.B *HC 



; pin at right 



characters here; such things 



character is now in DO (-32) 

Just -for niceness. 

ESC? 

no, skip 
else, set state -for next tine 

and exit 
RS 

set to hofie (1,1) 

BS (left arrow) 

FF (right arrow) 

VT (up arrow) 

LF (down arrow) 

CR 

none oi the above 



; erase to end o-f line 

; compute nunber at end 

J set screen pointer 

; CLEAR 



; clear the whole screen here folks 
; get screen start 
; get sone white 
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BNE.S 32 

MWE.U «8189,D1 

31 MWE.L D0,<A1)+ 
DBF Di,31 
HOVE.L M,DO 
MOME.L D0,(A1)+ 
HWE.L D0,(A1)+ 
BRA.S 34 

32 MWE.W lt327iS7,Dl 

33 MOUE.L D0,<A1)+ 
DBF Dl,33 

34 MOVE 11*0101, CRTR0W(A3) 
RTS 

ESCY 

CMP.W W0101,CRTROW(A3) 

BEQ.S ESCSTAR 

MOVE CRTRI3W<A3),-<SP) 

mP.B «1,CRTC0L(A3) 

BEQ.S 31 

BSR.8 ESCT 

ADDQ.B itl,CRTR|]U(A3) 

31 CLR.B CRTC0L(A3) 
MOVE lt33,Dl 
SUB.B CRTR0W(A3),D1 
BLE.S 3? 

MULU RL0NGS<A5),D1 

BSR SETAl 

32 CLR.L <A1)+ 
SUBQ ltl,Dl 
BGT.S 32 

39 HOME (SP)+,CRTR0U<A3) 
RTS 



5 364 lines worth o^ longs: 364*90/4-1 
; do next long oi screen raeisory 

get soBe black 

do next long oi screen memory 

do last long of screen raemory 

; zap total oi 128l( for 6LM 



; set starting cursor location 



clear from cursor loc to end of screen 
is this at top of screen? 

yes, do full screen then 
save current location 

is it at left? 

yes, save some time 
no, clear end of this line 



; and pretend at start of next line 
; conpute rows to clear 

skip out if none 
else, compute loop values 
setup Al with address 
and do it to it 



restore correct cursor location 



PIJTC The real worker of this whole mess. On entry, DO has 
the byte to be output. Ue are responsible for putting it out (if 
a valid byte), updating CRT pointers, etc. Ue also use CTLSKNT 
as a ctrl-S emulation function. 



pure 



muM 


}|*7F,D0 


BEQ.S 


32 


CLR.W 


Dl 


MOVE.B 


CRTSTAT(A3),DI 


LSL 


il2,Dl 


JMP 


PUTCTBKDl) 


32 RTS 




PUTCTBL JMP 


PUTCO 


JMP 


PUTCl 


m? 


PUTC2 


m? 


PIJTC3 


JMP 


PUTC4 



DO is data 

make sure of upper stuff 
NUL doesn't do anything 
handle state simulation 

j QUAD FOR JUMP INDEX 

I NULs are totally ignored 
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PUTCO 



30 

31 
32 
33 



34 



35 



36 



PUTCl 



31 



PUTC2 



PUTC3 



SUB.B 

BLT 

CMP.B 

BLE.S 

SUB.B 

LEA 

BRA.S 

ADD.W 

MOVE.B 

MIWE.B 

MWE.B 

AND.B 

AND.6 

BEQ.S 

SUB.B 

MWE.B 

SUB.B 

BNE.S 

SUB.B 

BPL.S 

SUB.B 

BPL.S 

CLR.B 

BSR.S 

ADD.U 

MWE.U 

SUB.U 

MOUE.B 

SUB.U 

BNE.S 

BRA 



CHP.B 

ENE.S 

HWE.B 

RTS 

CLR.B 

CMP.B 

BEQ.S 

CMP.B 

BEQ.S 

CMP.B 

BEQ.S 

RTS 



it$20,D0 

PUTSPCL 

»5F-$20,D0 

3D 

itf20,D0 

FOMnBL,A0 

32 

«I4,A7 

tt6,D3 

<A0)+,D1 

D1,-<A7) 

WFC,(A7) 

«3,D1 

35 

D1,D3 

(A7),-<A7) 

ltl,Dl 

34 

itl,D3 

33 

il,DO 

31 

-<A7) 

SETAl 

R0y8BfTS(A5),Al 

US, DO 

R0WBYTS(A5),A1 

(A7)+,(A1) 

Jtl,DO 

U 

PUTFF 



«$3D,D0 

31 

}I2,CRTSTAT<A3) 

CR7STAT(A3) 

}|$54,D0 

ESCT 

ll*59,D0 

ESCY 

ii$2A,D0 

ESCSTAR 



SUB.B «$1F,D0 

MOME.B D0,CRTR0U<A3) 

HOME.B «3,CRTSTAT<A3) 
RTS 

SUB.B i»$lF,D0 

MIWE.B D0,CRTCQL<A3) 

CLR.B CRTSTAT(A3) 

CMP.B «32,CRTRQW<A3) 



state 0, normal stuff 
check it for graphic symbol 
if special then go do it 



; nake upper case 

delete bytes from last loop 
get 7 more bytes 
next byte 

mask off repeat bits 
extract repeat count 

account for repeat count 

push for each repeat count 

deer counter for next byte 

deer character counter 

; get screen ptr to Al 



share code to advance cursor 

ESC Mas Just seen 
ESC-= (cursor addressing) 

and uiait for Y value 

reset state for the rest 
ESC-T, erase to end of line 

ESC-Y, erase to end of screen 

ESC-», erase screen 

none of the above 

ESC-= seen, expect rw value 



; ESC-=, Y, expect column value 



; make limit checks nm 
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BLS.S 31 








MOME.B «32,CRTR0U<A3) 






31 


MOUE.W R0WBYTS(A5),D0 

SUB.U «2,D0 

CMP.B CRTCOL(A3),D0 

BHI.S 32 

HOVE.B D0,CRTC0L(A3) 






32 


RTS 






PUTC4 


CLR.B CRTSTAT<A3) 
ANDI «7F,D0 
SUB lt$20,D0 
BLE.S 32 
HOVE DO,-(SP) 


; handles die 


expansion 


31 


MOME.B li$20,D0 
BSR PUTC 
SUBQ itl,(SP) 
BGT.S 31 
ADDQ l(2,SP 






32 


RTS 






FONTTBL 




font table 


origin here folks 


.BYTE 


$00+3,f00+2 


' (space) 




.BYTE 


*i0+3,*004l,$10 


1 




.BYTE 


*48+2,$00+3 


1 




.BYTE 


$48+l,$FC,$48,*FC,f48+l 


« 




.BYTE 


*10,*3C,*50,$38,$14,*78,$10 


$ 




.BHE 


$00,$C4,$C8,*10,*20,$4C,$8C 


y. 




.BYTE 


$60,*90+l,$<i0,$94,«88,$74 


& 




.BYTE 


$08,*10,i20,*0043 


/ 




.BYTE 


$08,$10,$20+2,$10,$D8 


( 




.BYTE 


$40,$20,*10+2,*20,$40 


) 




.BYTE 


$10,$54,$38,$7C,$38,$54,fl0 


» 




.BHE 


$00,$104l,f7C,*i04l,$00 


+ 




.BYTE 


$00+3,*30+l,*<iO 


J 




.BHE 


*00+2,$FC,$00+2 


- 




.BYTE 


$flO+3,*00,*30+l 


, 




.BYTE 


$00,*04,*08,$10,$20,*40,$80 


/ 




.BYTE 


$78,$84,$8C,*B4,$C4,$84,$78 







.BYTE 


*10,*38,$50,$10+2,$7C 


1 




.BYTE 


$78,$84,$04,$18,*40,$80,*FC 


2 




.BHE 


$78,$84,*Q4,$38,$04,$84,$78 


3 




.BYTE 


*08,$18,$28,$48,«FC,$08+1 


4 




.BYTE 


*FC,*80,$F0,*08,*04,*88,$70 


5 




.BYTE 


$38,$40,*80,*F8,$84+1,$78 


6 




.BYTE 


$FC,$84,$08,*10,$2042 


7 




.BYTE 


$78,$84+l,$78,$84+l,$78 


8 




.BHE 


*78,$84+l,*7C,f04,$08,*70 


9 




.BYTE 


$00+1, $30+1, *00,$30+1 


! 




.BYTE 


$00 ,$30*1, $00 ,$30+1, $60 


i 




.BYTE 


$08,$10,$20,$40,$20,$10,$08 


< 




.BYTE 


$00+l,$F8,$00,$F8,$00+l 


= 




.BYTE 


$40,$20,$10,$08,$10,$20,$40 ; 


> 




.BYTE 


$78,$84,$04,$18,$20,$00,$20 


? 




.BYTE 


$38,$44,$94,$AC,$98,$40,$3C 


3 




.BYTE 


$30,$48,$84,$FC,$84+2 


A 




.BYTE 


$F8,$44+1,$78,$44+1,$F8 ; 


B 
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BYTE 


$78 ,$84 ,$80+2, $84 ,$78 


C 


BYTE 


$F8,$44*3,$44,$F8 


D 


BYTE 


$FC,$80+1,$F0,$80+1,$FC 


E 


BYTE 


$FC,$80+l,$F0,$80+2 


F 


BYTE 


$78,$84,$80,$9C,$84+1,$78 


G 


BHE 


$84+2, $FC, $84+2 


H 


BYTE 


$38,$10+3,$10,$38 


I 


BYTE 


$1C,$08+3,$88,$70 


J 


BYTE 


$84,$88,$90,$E0,$90,$88,$84 


K 


BYTE 


$80+3,$80+l,$FC 


L 


BYTE 


$84,$CC,$B4+I,$84+2 


M 


BYTE 


$84,$C4,$A4,$94,$8C,$84,$84 


N 


BYTE 


$78 ,$84+3, $84, $78 





BYTE 


$F8,$84+l,$F8,$80+2 


P 


BYTE 


$78 ,$84+2 ,$94 ,$88 ,$74 


Q 


BYTE 


$F8,$84+1,$F8,$90,$88,$84 


R 


BYTE 


$78 ,$84 ,$80 ,$78, $04, $84 ,$78 


S 


BYTE 


$7C,$10+3,$10+1 


T 


BYTE 


$84+3,$84+l,$78 


U 


BYTE 


$84+2, $48+1, $30+1 


M 


BYTE 


$84+2,$B4+l,$CC,$84 


U 


BYTE 


$84+l,$48,$30,$48,$84+l 


X 


BYTE 


$44+2,$38,$10+2 


Y 


BYTE 


$FC,$04,$fl8,$30,$40,$80,$FC 


2 


BYTE 


$78, $40+3, $40 ,$78 


[ 


BYTE 


$00,$80,$40,$20,$10,$08,$04 


\ 


BYTE 


$78 ,$08+3, $08, $78 


] 


BYTE 


$10,$28,$44,$00+3 


* 


BYTE 


$00+3,$00+l,$FC 




BYTE 








.BLOCK 



494,0 



pad to $E00 in size (kwK) 



<23Apr85> 



MUST COME OUT TO 7 BLOCKS 

j Now follows the 1 block of mount table/volume entry infornsation 

.INCLUDE MWD-HD/MountTable.text } durany mount table/uolume entries 
.END 
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Files writeffiacbblks.Text 



Hard Disk Driver Write boot blocks routine 

written by Rich Castro 

This progran reads Mac boot blocks froii internal diskette and then writes 
theiB out to the hard disk. 

Modification Histopys 

29 Jun 84 RDC Unite initial version 



.NOLI ST 

•INCLUDE TLASM-SYSEQU.TEXT 

.INCLUDE TLASM-SYSMACS.TEXT 

.INCLUDE TLASM-SYSERR.TEXT 

.LIST 



IntrnlDrv .E8U 



I Sony internal drive 



.FUNC WrtBootBlk5,0 

; on entry 4<SP)=result 

I -first create space on stack for buffer and parameter block 



iO 



31 



MOVEQ 


lfl27,D0 




CLR.L 


-(SP) 


clear a buffer area on the stack 


DBRA 


00,30 




MOME.L 


SP,A1 


buffer for boot block data 


MOVEQ 


«<IOMQElSize/2>-l,D0 




CLR.W 


-(SP) 


■ clear a parameter block on the stack 


DBRA 


DO, 31 




MWE.L 


SP,AO 




MOME.L 


AI,IOBuffer(Afl) 


set data buffer ptr 


MOME.W 


«l,IOPosMode(AO) 


use position mode 1 (from disk start) 


MQMEQ 


«0,D0 


read block 


BSR.S 


ReadDsk 


from internal Sony 


BNE.S 


WrtXit 


exit if errors 


MOMEQ 


ltO,DO 


else write block 


BSR.S 


WrtDsk 


to hard disk 


BNE.5 


yrtXit 


exit if errors 


MOUE.L 


ll$200,D0 


read block 1 


BSR.S 


ReadDsk 


1 from internal Sony 


BNE.S 


yrtXit 


exit if errors 


MOME.L 


ll$200,D0 


i else write block 1 


BSR.S 


yrtDsk 


; to hard disk 



WrtXit 



ADD i<5124lQMQElSize>,SP ; clean up stack space . . . 
MOME.L (SP)+,AO ; get ret addr 
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HOME 
JMP 



DO,(SP) 
(AO) 



; save result 
; and return 



subroutine to read diskette block 



ReadDsk 



MOVE.L 
MQVE.L 
MWE.U 
MOME.W 
Read 
fsT 
RTS 



«$200,I0ByteCount(A0) 
D0,I0Po50ffset(A0) 
«DskRfn,IORefNurR(AO} 
«Intrn]Drv,IODryNuni(AO) 

DO 



read one block 
starting block 
read fpora internal drive 



set return code 



subroutine to write block to hard disk 



WrtDsk MOVE.L «$2flO,IOByteCount<AO) | write one block 

MOVE.L DO,IOPosOffset(AO) | starting block 

nWEM ltHDR{Nun>,IORefNuni(A0) ; write to hard disk 

MOME.W «HDDrive,IODrvNura<AO) 
Jlrite 

TST DO ; set return code 

RTS 



.END 
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Filej UrtBBlks.Text 



Hard Disk Driver Write boot blocks routine 

written by Rich Castro 

This prograiB reads boot blocks irm internal diskette and then writes 
theiB out to the hard disk. 

Modification History: 

29 Jun 84 RDC Write initial version 



.NOLIST 

.INCLUDE TLASM-SYSE8U.TEXT 

.INCLUDE TLASM-SYSf^CS.TEXT 

.INCLUDE TLASM-SYSERR.TEXT 

.LIST 



IntrnlDrv .E9U 



I Sony internal drive 



.FUNC WrtBootBlks.O 



; on entry 4<SP)=result 

; first create space on stack for buffer and parameter block 



30 



31 



MOVEQ «127,D0 

CLR.L -<SP) 

DBRA D0,30 

MQME.L SP,A1 



; clear a buffer area on the stack 
5 buffer for boot block data 



MOVEQ tt<IIWQElSize/2>-l,O0 

CLR.W -(SP) ; clear a parameter block on the stack 

DBRA DO, 31 

HOME.L SP,AO 



MWE.L 


Al,IOBuffer(AO) 


, set data buffer ptr 


MOVE.W 


itl,IOPosMode<AO) 


use position mode 1 (from disk start) 


MOMEQ 


no, DO 


' read block 


BSR.S 


ReadDsk 


frffii internal Sony 


BNE.S 


WrtXit 


exit if errors 


M(WEQ 


no, DO 


else write block 


BSR.S 


WrtDsk 


to hard disk 


BNE.S 


WrtXit 


exit if errors 


MWE.L 


n$200,D0 


read block 1 


BSR.S 


ReadDsk 


from internal Sony 


BNE.S 


WrtXit 


exit if errors 


MiWE.L 


i$200,D0 


else write block 1 


BSR.S 


WrtDsk 


to hard disk 



WrtXit 



ADD i<512+I{WQElSize>,SP j clean up stack space . . . 
MOME.L <SP)+,AO ; get ret addr 
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HOME 
JMP 



DQ,(8P) 
<A0) 



; save result 
; and return 



subroutine to read diskette block 



ReadDsk 



MOME.L 

MOVE.L 

MWE.U 

MOUE.U 

_Read 

TST 

RTS 



lt$200,I0ByteCount(A0) 
D0,I0Po50ffset(A0) 
itDskRfn,IORefNuiB<AO) 
«lntrn1Drw,I0DrvNuiB<A0) 



DO 



read one block 
starting block 
read irm internal drive 



set return code 



subroutine to write block to liard disk 



WrtDsk 



MOME.L 
MWE.L 
MOME.W 
H(X!E.U 
Write 
TST 
RTS 



«$200,I0ByteCount<A0) 
DO,IOPosOflset(AO) 
«HDRfNun,IORefNuni(A0) 
«HDDrive,IODrvNu[A<A0) 

DO 



write one block 
starting block 
write to hard disk 



set return code 



.END 
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